Предмет: Информатика,
автор: Денис21218
определить делится ли на 5 введенное число x . если делится, то другому числу y присвоить 100 в противном случае у сделать равным 500 нужна программа на паскаль
Ответы
Автор ответа:
0
var x,y: integer;
begin
write('Введите х ');
readln(x);
if (x mod 5 <> 0) then y:=500 else y:=100;
writeln('y=',y);
end.
begin
write('Введите х ');
readln(x);
if (x mod 5 <> 0) then y:=500 else y:=100;
writeln('y=',y);
end.
Интересные вопросы
Предмет: Русский язык,
автор: solsanovsuleyman
Предмет: Английский язык,
автор: sayakuderina80
Предмет: Математика,
автор: dianason09
Предмет: Биология,
автор: Мусульманка01
Предмет: Литература,
автор: sashikoa