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

Question

Василла

10 июля, 19:45

+2

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