Var a,b:integer;
begin;
b:=1;
a:=1;
while a<>0 do
begin;
readln(a);
if a=0 then break;
b:=b*a;
end;
writeln(b);
<span>end.</span>
Количество инф в первом тексте к=5, во втором к=8, разница 5/8.
1)
Var i,a,b:longint;
Begin
read(a,b);
for i:=a to b do
if (i mod 3=0) then write(i,' ');
writeln;
End.
2)
Var i:longint;
Begin
for i:=10 to 99 do
if (abs(i mod 10 - i div 10)<=1) then write(i,' ');
writeln;
End.
3)
Var i,s,f,t:longint;
Begin
for i:=100 to 999 do
begin
f:=i div 100;
s:=i div 10 mod 10;
t:=i mod 10;
if (f=s) or (f=t) or (s=t) then write(i,' ');
end;
writeln;
End.
Толя не женится на Дине, она его сестра.
Толя не женится на Вере, они оба старшие, Толя среди мальчиков, Вера среди девочек, а по условию задания общий возраст пар одинаков.
Значит Толя женится на Жанне.
Диме и Жанне вместе столько же лет, сколько Боре и Диме, значит Боря и Жанна ровесники.
Бориной жене столько же лет, сколько Толе. Значит это не сестра Толи.
Получается, что Боря женат на Вере.
Дима на Дине.
Северно Ледовитый океан, озеро Байкал, река Нева (открой атлас и посматри).