Определите значения переменных s и i после выполнения фрагмента программы:
s:=0; i:=5;
while i>0 do
begin
s:=s+i; i:=i-l;
end;

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