Процедуры

[Юля787]

3. Для делимости числа на 3 требуется, чтобы сумма цифр числа делилась на 3.
Написать процедуру проверки делимости числа n, вводимого с клавиатуры, на 3.
18. Вычислить значение выражения: y=an ∙ xn + an-1 ∙ xn-1 + … + a2 ∙ x2 + a1 ∙ x1 + a0,
где все данные – целые числа. Коэффициенты an, an-1, …, a1, a0 являются первыми
членами арифметической прогрессии, определяемой q – первым элементом и d –
разностью между соседними элементами. Значения q, d, n, x вводятся с
клавиатуры.
всем заранее спасибо
=**)

[Stilet]

Ну предположим на первую так:

MODULE Num;
IMPORT StdLog,In;

PROCEDURE do*;
VAR sum,n,k,e:INTEGER;
BEGIN
 In.Open;
 In.Int(n);
 sum:=0;
 k:=10;
 REPEAT
  e:=n MOD k;
  sum:=sum+e;
  n:=n DIV k;
 UNTIL n=0; 
 StdLog.Clear;
 StdLog.Int(sum);StdLog.Ln;
 IF sum MOD 3=0 THEN
  StdLog.String("Поделится");
 ELSE
  StdLog.String("Не поделится");
 END;
END do;

END Num.

На входе 1234

Результат:

10
Не поделится

[Юля787]

а савторой задачей что делать, подскажите плиз

[IT-man]

язык какой7

[Юля787]

Язык паскаль