sinethu

19.09.2022 00:51

Информатика

Есть ответ 👍

1. Определите значение переменной S после выполнения фрагмента программы:
i:=1;
S:=1;
while i < 6 do
begin
i:= i + 2;
S:= S + i;
end;

2. Запишите значение переменной sum после выполнения фрагмента программы:
sum:=1;
for i:= 3 to 5 do sum:= sum + 2 * i;

3. Запишите результат выполнения программы:
var p, n: integer;
begin
p:= 2;
for n:= 5 dowto 3 do n:= p * n;
writeln (p);
end.

4. Сколько раз исполнится цикл?
i:= 15;
repeat
i:= i – 3;
until i > 6;

5. Напишите программу, которая в последовательности натуральных чисел определяет значение минимального, не кратного 9, элемента последовательности. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, не кратное 9. Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
Программа должна вывести одно число: значение минимального элемента не кратного 9.