ПОМОГИТЕ ПЛИЗ !!!!
найти сумму чётных чисел в интервале [от1 до 50]
(ПАСКАЛЬ)
найти сумму чётных чисел в интервале [от1 до 50]
(ПАСКАЛЬ)
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Begin
s:=0
i:=2
while i <=50 do begin
s:=s+i;
i:=i+2;
end;
writeln(s)
End.
begin
for i:=1 to 50 do
if i mod 2 = 0 then
a:=a+i;
writeln(a);
end.