ПОМОГИТЕ ПЛИЗ !!!! найти сумму чётных чисел в интервале [от1 до 50] (ПАСКАЛЬ)
ПОМОГИТЕ ПЛИЗ !!!!
найти сумму чётных чисел в интервале [от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.
Гостьvar a,i:integer;
begin
for i:=1 to 50 do
if i mod 2 = 0 then
a:=a+i;
writeln(a);
end.
Не нашли ответ?
Похожие вопросы