Предмет: Информатика,
автор: vladulashchik
Дано целое число. Если оно кратно 5, то вывести на экран сообщение: «Да» и уменьшить число в 5 раз. В противном случае вывести на экран сообщение «Нет» и при этом число увеличить в 5 раз.
Ответы
Автор ответа:
0
var a:integer;
begin
writeln ('a=');
readln(a);
if a mod 5=0 then writeln ('Yes ',a/5) else writeln('NO ', 5*a);
readln;
end.
begin
writeln ('a=');
readln(a);
if a mod 5=0 then writeln ('Yes ',a/5) else writeln('NO ', 5*a);
readln;
end.
Автор ответа:
0
=))
readln;
readln;
Похожие вопросы
Предмет: Английский язык,
автор: vladaackovic45
Предмет: История,
автор: ivanickijan
Предмет: Английский язык,
автор: BBBaidibek
Предмет: Биология,
автор: kkomur
Предмет: История,
автор: Yanaa5634