Dalallador 2 ноября 2019 в 10:31
Дано число. Если оно не делится на 5, то увеличить число в 5 раз, в противном случае уменьшить число в 5 раз.
Дано число. Если оно не делится на 5, то увеличить число в 5 раз, в противном случае уменьшить число в 5 раз.
Var
a:integer;
begin
writeln(Введите число);
read(a);
if a mod 5lt;gt;0 then begin
a:=a*5;
writeln(a);
end
else
writeln(a/5);
end.
a:integer;
begin
writeln(Введите число);
read(a);
if a mod 5lt;gt;0 then begin
a:=a*5;
writeln(a);
end
else
writeln(a/5);
end.
Компьютеры и вычисления
33
94
Для комментирования необходимо зарегистрироваться на сайте