Ольга
Ольга

Помогите пожайлуста, сделать задачи в Pascal ABC, очень нужно 1. Составить программу нахождения цифрового корня.

Ле
Лейсан

Program primer;
Var n, k, s : Longint;
Begin
Writeln('Введите число');
Readln(n);
s:=n;
While s>9 Do
Begin
k:=s;
s:=0;
Repeat
s:=s+k Mod 10;
k:=k Div 10;
Until k=0;
End;
Writeln('цифровой корень числа ',n,' равен ',s);
Readln;
End.

ИЛИ

Program primer 2;
var n:longint;
function num(i:longint):integer;
var s: integer;
begin
s:=0;
repeat
s:=s+n mod 10;
n:= n div 10;
until n=0;
num:=s;
end;
function root(l:longint):integer;
begin
if n<10 then root:=n
else
begin
n:=num(n);
root:=root(n);
end;
end;
begin
write('Введите целое число n=');
readln(n);
writeln('Его цифровой корень равен : ', root(n));
end.

Похожие вопросы
составить программу в ABC Pascal
Помогите пожалуйста составить программы в ABC pascal с циклом While!
Помогите решить задачу в Pascal ABC!!!
помогите решить задачу по программе Pascal ABC
Составить программу по информатике по программе Pascal ABC
Помогите решить задачу в PASCAL ABC
нужна программа на с++ или pascal abc
Помогите с Pascal ABC Как сделать команду для нахождения наибольшего и наименьшего числа в Pascal ABC
Pascal abc помогите . Составить программу ...в фото
PASCAL ABC составить программу для решения задачи с использованием одномерных и двухмерных массивов