Здравствуйте, nikita9581!
Смотрите код.
[code lang=pascal h=80]var
i:integer;
k:real;
begin
k:=0;{тут будет сумма}
for i:=1 to 10 do{цикл суммы}
k:=k+1/sqr(i);{первая часть суммы}
for i:=5 to 15 do{цикл суммы}
k:=k+sqrt(5+sin(i));{вторая часть суммы}
writeln('result:',k:10:5);{выводим результат}
end.[/code]
Блок схема(см. прикрепленный файл) сделана автоматическим
он-лайн построителем.Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.