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

Question

Василла

12 декабря, 10:39

+1

Ответы (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.