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

Покажи другу

Рейтинг за 09/2017
  1. tadbojarin

    497420 очков

  2. Данила

    209580 очков

  3. Андрей

    192850 очков

  4. x23t45

    123360 очков


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

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

1 Ответ

0 Хорошо 0 Плохо

(если сумма цифр числа делится на 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.

ответил 09 Фев, 12 - Данила  




...