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 целых чисел. Найти максимальное из них.

Question

Максюша

27 октября, 06:18

+4

Ответы (1)

Знаете ответ?

Ритуля · 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.