Определить делится ли на 5 введенное число x . если делится, то другому числу y присвоить 100 в противном случае у сделать равным 500 нужна программа на паскаль

fima9 fima9    2   17.08.2019 10:40    2

Ответы
ррррр84 ррррр84  05.10.2020 00:34
Var x,y: integer;
begin
write('Введите х ');
readln(x);
if (x mod 5 <> 0) then y:=500 else y:=100;
writeln('y=',y);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика