Дано число. Если оно не делится на 5, то увеличить число в 5 раз, в противном случае уменьшить число в 5 раз.

Question

Лана

6 июня, 08:52

+5

Ответы (1)

Знаешь ответ?

Маруся · Answer 1

Var

a:integer;

begin

writeln ('Введите число');

read (a);

if a mod 50 then begin

a:=a*5;

writeln (a);

end

else

writeln (a/5);

end.