program z;
var
i : integer;
begin
Writeln('Введите число'); Readln(i);
if i mod 3 = 0
then
Writeln('Число делится на 3')
else
Writeln('Число не делится на 3');
readln;
end.
Объяснение:
я не знаю это правильно или нет
Поделитесь своими знаниями, ответьте на вопрос:
1) Написать программу, проверяющую, удовлетворяет ли введённое число следующему условию: больше 7 или делится на 3. Паскаль
program z;
var
i : integer;
begin
Writeln('Введите число'); Readln(i);
if i mod 3 = 0
then
Writeln('Число делится на 3')
else
Writeln('Число не делится на 3');
readln;
end.
Объяснение:
я не знаю это правильно или нет