Найти нод для последовательности чисел (пользователь вводит целые числа, пока не введёт 0. как найти: например нод(a,b,c) это нод(нод(a,b), c) для последовательности из трёх чисел. как только введён 0, программа должна выдать результат (одно целое число).
пример входных данных: 124, 256, 768, 2, 0; пример выходных данных: 2.
язык: pascal
uses crt;
var n,m,i,p:longint;
s,k:byte;
begin
clrscr;
repeat
write('Введите натуральное число N=');
readln(n);
until n>0;
m:=n;
s:=0;
while m>0 do
begin
s:=s+m mod 10;
m:=m div 10;
end;
writeln('Числа от 1 до ',n-1,', у которых произведение цифр=',s);
k:=0;
for i:=1 to n-1 do
begin
m:=i;
p:=1;
while m>0 do
begin
p:=p*(m mod 10);
m:=m div 10;
end;
if p=s then
begin
k:=1;
write(i,' ');
end;
end;
if k=0 then write('Таких чисел нет');
readln
end.
Объяснение:
const
n=5;
type
t_spisok=record
surname:string[20];
name:string[20];
YearBorn:string[4];
ves:integer;
Rost:integer;
end;
mas=array [1..n] of t_spisok;
var
spis1:mas;
f: file of t_spisok;
i:integer;
Объяснение:
program spisok1;
const
n=5;
type
t_spisok=record
surname:string[20];
name:string[20];
YearBorn:string[4];
ves:integer;
Rost:integer;
end;
mas=array [1..n] of t_spisok;
var
spis1:mas;
f: file of t_spisok;
i:integer;
// То что ниже - это для проверки
begin
Assign(f,'klass9.dat');
Rewrite(f);
for i:=1 to n do begin
with spis1[i] do begin
Write('фамилия: ');
ReadLn(surname);
Write('имя: ');
ReadLn(name);
Write('год рождения: ');
ReadLn(yearborn);
Write('вес(кг): ');
ReadLn(ves);
Write('рост(см): ');
ReadLn(rost);
end;
Write(f, spis1[i]);
end;
Close(f);
Assign(f,'klass9.dat');
Reset(f);
writeln ('фамилия':20,'имя':20, 'год рожд.':10,' вес ':4,' рост ':4);
i:=1;
while not Eof(f) do begin
Read(f, spis1[i]);
with spis1[i] do begin
writeln (surname:20,name:20,YearBorn:10,ves:4,rost:4);
end;
i:=i+1;
end;
close(f);
readln;
end.