Ниже в табличной форме представлен фрагмент базы данных «средняя продолжительность жизни как обобщающий - id147342820220919 от race201 19.09.2022 13:25

Question

Информатика: Ниже в табличной форме представлен фрагмент базы данных «средняя продолжительность жизни как обобщающий показатель качества жизни той или иной нации». материк страна мужчины (лет) женщины (лет) евразия германия 74 80 евразия израиль 76 80 евразия иран 69 70 евразия монголия 64 67 евразия нидерланды 63 74 евразия норвегия 75 81 евразия россия 58 72 евразия швеция 78 84 евразия япония 77 83 африка тунис 68 71 африка судан 54 56 африка ангола 45 48 африка юар 62 68 сев.америка сша 73 80 сев.америка

race201 · Accepted Answer

Есть много разных решения этой задачи. Например:
var n:integer; b:boolean; m:set of 0..9;
begin
write('n='); readln(n);
m:=[];
b:=false;
while (n>0) and not b do
if n mod 10 in m then b:=true else begin m:=m+[n mod 10]; n:=n div 10; end;
if b then writeln('Да') else writeln('Нет');
end.

Пример:
n=123432
Да

Вот ещё вариант:
var n,m,n1,m1,b:integer;
begin
write('n='); readln(n);
b:=0;
while n>0 do
begin
m:=n mod 10;
n:=n div 10;
n1:=n;
while n1>0 do
begin
m1:=n1 mod 10;
if m=m1 then b:=1;
n1:=n1 div 10;
end;
end;
if b=1 then writeln('Да') else writeln('Нет');
end.

MOGZ ответил