Нужна . Чему будет равняться k после выполнения программы Var m, k : integer;
begin
m:=1; k:=0;
while (m<5) do m:=m+1; k:=k+m;
writeln (k)
end.

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку