<span><span>1)
</span>океан
</span><span><span>a)
</span>Тихий океан</span><span><span>
b)
</span>Индийский океан </span><span><span>
2)
</span>море
</span><span><span>a)
</span>Черное море
</span><span><span>b)
</span>Азовское море
</span><span><span>c)
</span>Карибское море </span><span><span>
d)
</span>Средиземное море
</span><span><span>3)
</span>река </span><span><span>
a)
</span>Волга, </span><span><span>
b)
</span>Днепр
</span><span><span>c)
</span>Нил</span><span><span>
d)
</span>Ангара</span><span><span>
4)
</span><span> озеро </span></span><span><span>
a)
</span>Байкал, </span><span><span>
b)
</span>Иссык-Куль
</span><span><span>c)
</span>Мичиган,
</span><span><span>d)
</span>Гусь</span>
<span><span>e)
</span>Плещеево озеро.</span>
<span />
1) - 1 (=12)
2) - 3 (=11)
3) - 5 (=7)
4) - 2 (=6 )
5) - 4 (=5 в дес)
Держи)
program zad1;
var
i:integer;
a:real;
begin
a:=100000;
for i:=1 to 40 do
begin
if i<5 then
begin
a:=a*1.2;
a:=a*0.88;
writeln(i,' год ',a:0:0);
end
else
begin
a:=a*1.2;
a:=a*0.88;
a:=a-5000;
writeln(i,' год ',a:0:0);
end;
end;
<span>end.</span>
А чем тут помочь , если тут все уже решено?
почему бы тебе не закинуть все в одно задание?)
не первый раз тебе пишу уже)
program p_4;
var
i, n, count: word;
begin
readln(n);
count := 0;
for i := 1 to n do begin
if n mod i = 0 then inc(count)
end;
writeln(count)
end.