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

Question

Информатика

Варламий

18 января, 19:23

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

+1

Ответы (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.