name123123 N name123123 Регистрация 14 Дек 2013 Сообщения 77 Репутация 0 Спасибо 0 Монет 0 5 Авг 2016 #1 var n,s : integer; begin n:=3; s:= 20; while n <= 25 do begin s:=s+20; n:= n+5; end; write (s); end.
RAQ280 R RAQ280 Регистрация 22 Ноя 2013 Сообщения 91 Репутация 0 Спасибо 0 Монет 0 5 Авг 2016 #2 ну все верно - получается, что n увеличивается на 5 пять раз, соответственно и s увеличивается 5 раз на 20... плюс сначала 20 было. Позитивный голос 0
ну все верно - получается, что n увеличивается на 5 пять раз, соответственно и s увеличивается 5 раз на 20... плюс сначала 20 было.