Написать программу, которая определяет является ли введенное число х кратным 7.
Program Primer;
Var x: integer;
begin
writeln('Ввести x');
readln (x);
if x mod 7=0 then
writeln('Число делится на 7')
else
writeln('Число не делится на 7');
end.

arinalomova13    3   23.03.2020 01:50    39