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

Question

Информатика

Варламий

20 июня, 10:10

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

+5

Ответы (2)

Знаете ответ?

Кора · Answer 1

Program prog;

uses crt;

var a: integer;

begin

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

readln (a) ;

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

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

end.

Настасия · Answer 2

Можно так ...

кусок программы ...

if n mod 3 = 0 then writeln ('число делится') ;

else writeln ('не делится') ;

(это не по признаку делимости)