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

Question

Информатика

Лена

13 августа, 14:04

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

+4

Ответы (2)

Знаете ответ на вопрос?

Никитка · Answer 1

Можно так ...

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

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

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

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

Фаня · Answer 2

Program prog;

uses crt;

var a: integer;

begin

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

readln (a) ;

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

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

end.