Var p, k: integer; begin
p := 3;
k := 0;
while p <= 7 do
begin
k := k + p;
p := p + 1
end;

Question

Информатика: Var p, k: integer; begin p := 3; k := 0; while p = 7 do begin k := k + p; p := p + 1 end;

mashakuznetsova211 · Answer

твоя программа ничего не выведит т.к нет writeln (я так понимаю это паскаль). В конце программы k = 25 p = 8

Объяснение: