Приветствуем Вас на нашем сервисе помощи в решении домашних заданий!

Алгоритм разветвления. Составить алгоритм, который проверяет, делится ли на три целое число,

Алгоритм разветвления. Составить алгоритм, который проверяет, делится ли на три целое число, введенное с клавиатуры (возможно использование оператора mod – остаток от деления двух чисел).
- 9 февраля, 2012 - Данила   Класс - Одиннадцатый

1 Ответ

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s:=0;

writeln ('Введите число');

while a<> 0 do

begin

a:= a mod 10  

S:=s+a;

end;

if S mod 3 = 0 then writeln ('делится') else

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

end.

ответил 9 февраля, 2012 - Данила  




Сайт в сети 2302 - й день.
...