Составить программу в Паскаль: Дано трехзначное число определить делится ли оно на 3. Если да - вывести результат деления, если нет вывести фразу - "число не кратно 3".

Question

Хохлик

Информатика

20 сентября, 23:38

Составить программу в Паскаль: Дано трехзначное число определить делится ли оно на 3. Если да - вывести результат деления, если нет вывести фразу - "число не кратно 3".

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Варвара Завьялова · Answer 1

Pascal:

program prog;

uses crt;

var a: integer;

begin

write ('Введите трехзначное число а = ');

readln (a);

if a mod 3 = 0 then writeln ('Результат = ', a/3)

else writeln ('Число не кратно 3');

end.