Определить делится ли на 5 введенное число x . если делится, то другому числу y присвоить 100 в противном случае у сделать равным 500 нужна программа на паскаль
Определить делится ли на 5 введенное число x . если делится, то другому числу y присвоить 100 в противном случае у сделать равным 500 нужна программа на паскаль
Гость
Ответ(ы) на вопрос:
Гостьvar x,y: integer;
begin
write('Введите х ');
readln(x);
if (x mod 5 <> 0) then y:=500 else y:=100;
writeln('y=',y);
end.
Не нашли ответ?
Похожие вопросы