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

Question

Регина

Вчера, 16:45

+3

Ответы (1)

Знаете ответ на вопрос?

Спартак · Answer 1

Var x, y: integer;

begin

write ('Введите х ') ;

readln (x) ;

if (x mod 5 0) then y:=500 else y:=100;

writeln ('y=', y) ;

end.