Question

Ввести число.если оно четное разделить его на 4,если нечетное трудность на 5
сишарп

Answer 1

Пошаговое объяснение:

var a: integer;

begin

write('a = ');

readln(a);

if (a mod 2) = 0 then a := a div 4

else a := a*5;

writeln('a = ', a);

end.