Исидор
6 год назад
Определить делится ли на 5 введенное число x . если делится, то другому числу y присвоить 100 в противном случае у сделать равным 500 нужна программа на паскаль
ОТВЕТЫ
Африкан
Jul 6, 2019
Var x,y: integer;
begin
write(Введите х );
readln(x);
if (x mod 5 lt;gt; 0) then y:=500 else y:=100;
writeln(y=,y);
end.
begin
write(Введите х );
readln(x);
if (x mod 5 lt;gt; 0) then y:=500 else y:=100;
writeln(y=,y);
end.
108
