Question

1. Определить значения целочисленной переменной S после выполнения алгоритмов:
a). S:=1, a:=1
для i от 1 до 3 повторять
нц
S:=S+ix(i+1)a
a:=a+2
кц
(Составьте блок-схему),
б). Для i от 1 до 3 повторять
нц
S:=0
для j от 2 до 2 повторять
нц
S:=i+j
Кц
Кц
(Составить блок-схему)
2). Последовательно вводятся N целых чисел. Найти максимальное из них.

Answer 1

1.
var s,a,i:integer;
begin
s:=1;i:=1;
for i:=1 to 3 do
s:=s+i*(i+1);
a:=a+2;
writeln (S,' ',a);
end.