2) Тело цикла выполнится три раза:
при i := 2, в результате чего S := 2*2 := 4;
при i := 3, в результате чего S := 4*4 := 16;
при i := 4, в результате чего S := 16*16 := 256.
Ответ: 256.
Ответ: 2
A - название массива
: array - определяем что это массив
[1...25] - промежуток индексов всех элементов
of integer - числа целого типа
var
n, max, count, contrl: integer;
begin
contrl := 0;
max := 0;
Writeln('Введите числа: ');
Readln(n);
while n <> 0 do
begin
Inc(count);
if (n mod 10 = 0) and (n > max) then max := n;
Read(n);
end;
Writeln('Введите контрольное значение: ');
Read(contrl);
Writeln('Получено: ', count, ' чисел');
Writeln('Получено контрольное значение: ', contrl);
Writeln('Вичисленное контрольное значение:: ', max);
if contrl = max then Writeln('Контроль пройден')
else Writeln('Контроль не пройден');
end.