Question

Составить программу на языке Паскаль:

С клавиатуры вводится любое целое число (тип integer). Определить (вывести на экран сообщение), является ли это число кратным 3.

Пожалуйста быстрее!!! ​

Answer 1

Var a:real;
begin
write (‘ Введи число a’);
readln (a);
If a mod 3= 0 then
write (‘ число кратно трём ‘)
else
write (‘число не кратно трём ‘);
end.