ПОМОГИТЕ ПЛИЗ !!!!
найти сумму чётных чисел в интервале [от1 до 50]
(ПАСКАЛЬ)
Var s,i:integer;
Begin
s:=0
i:=2
while i <=50 do begin
s:=s+i;
i:=i+2;
end;
writeln(s)
End.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
