1. n = 2 s = 6
2. n = 7 s = 11
3. n = 20 s = 81
Объяснение:
1.
n = 2 s = 4 i = 2 2<=2 ДА
n = 2 s = 6 i = 5 5<=2 НЕТ
2.
n = 7 s = 4 i = 2 2<=7 ДА
n = 7 s = 6 i = 5 5<=7 ДА
n = 7 s = 11 i = 8 8<=7 НЕТ
3.
n = 20 s = 4 i = 2 2<=20 ДА
n = 20 s = 6 i = 5 5<=20 ДА
n = 20 s = 11 i = 8 8<=20 ДА
n = 20 s = 19 i = 11 11<=20 ДА
n = 20 s = 30 i = 14 14<=20 ДА
n = 20 s = 44 i = 17 17<=20 ДА
n = 20 s = 61 i = 20 20<=20 ДА
n = 20 s = 81 i = 23 23<=20 НЕТ
n = 2 (или 7, или 20) s = 4 i = 2
пока условие i <= n истинно, то выполняем действия в цикле
Действия в цикле:
s = s + i
i = i + 3
Вывод s
шаг 1
n = 2 s = 4 i = 2
условие 2<=7 истинно (ДА)
Действия в цикле:
s = s + i = 4 + 2 = 6
i = i + 3 = 2 + 3 = 5
шаг 2
n = 2 s = 6 i = 5
условие 5<=2 ложно (НЕТ)
Действия в цикле не выполняются
Вывод 6
s:string;
i,k:integer;
begin
k := 0;
readln(s);
for i := 1 to length(s) do
if s[i] = 'а' then
k := k + 1;
if k > 0 then
writeln(k)
else
writeln('Нет искомой буквы')
end.