program z;
var
i : integer;
begin
Writeln("Введите число"); Readln(i);
if i mod 3 = 0
then
Writeln("Число делится на 3")
else
Writeln("Число не делится на 3");
readln;
end.
Объяснение:
program z;
var
i : integer;
begin
Writeln("Введите число"); Readln(i);
if i mod 3 = 0
then
Writeln("Число делится на 3")
else
Writeln("Число не делится на 3");
readln;
end.
Объяснение: