А ты не знаешь ответы по олмпиаде (географии)?
Две задачи в файле
3)
var n,i;integer;
s:real;
begin
write('n=',n); read(n);
for i:=1 to n do begin
s:=s+1/i;
end;
write('s=',s);
end.
Алг массив
нач
цел N = 10
целтаб a[1:N]
цел i, k
нц для i от 1 до N
a[i] := irnd(-2,2)
вывод a[i], " "
кц
вывод нс
k:=0
нц для i от 1 до N
если a[i] > 0 то
k:=k+1
все
кц
вывод "k = ",k
кон
1 см - 3,5 м
1 см - 350 м
1 см - 50 км
1 см - 2,5 км
Var n:integer;beginread(n);case n of1:writeln('рубль');2..4:writeln('рубля');5..20:writeln('рублей');elsewriteln('Условия не выполняется');end;end.