Var num : integer;
num2 : real;
begin
readln(num);
if num mod 2 = 0 then num2 := num / 4
else num2 := num * 5;
writeln(num2);
end.
тест, блок-схема

Question

Информатика: Var num : integer; num2 : real; begin readln(num); if num mod 2 = 0 then num2 := num / 4 else num2 := num * 5; writeln(num2); end. тест, блок-схема

Аня4678 · Accepted Answer

C# int n = Convert.ToInt32(Console.ReadLine()); int max = 0; int index = -1; int [] mass = new int [n]; Random rnd = new Random(); for (int i = 0; i mass.Length; i++) { mass[i] = rnd.Next(); Console.WriteLine(mass[i] + ); } for (int i = 0; i mass.Length; i++) { if (mass[i] max) {  max = mass[i]; index = i; } } Console.WriteLine( Индекс наибольшего равен + index); короч просто описываю что надо: 1) Заводишь переменные для максимума и индекса 2) Заполняешь массив рандомными числами 3) выводишь массив...

Var num : integer; num2 : real; begin readln(num); if num mod 2 = 0 then num2 := num / 4 else num2 := num * 5; writeln(num2); end. тест, блок-схема

MOGZ ответил

Var num : integer;
num2 : real;
begin
readln(num);
if num mod 2 = 0 then num2 := num / 4
else num2 := num * 5;
writeln(num2);
end.
тест, блок-схема