Написать программу в Паскале (ВВОДИТЬ ЧИСЛА ДО ТЕХ ПОР ПОКА ОЧЕРЕДНОЕ НЕ ОКАЖЕТСЯ РАВНО 0,НАЙТИ СУММУ ЧИСЕЛ С ЧЕТНЫМ ПОРЯДКОВЫМ НОМЕРОМ)
Ответы
Ответ дал:
0
var a,i,s:integer;
begin
write('a='); readln(a);
s:=0;i:=1;
while a<>0 do
begin
if i mod 2 =0 then s:=s+a;
i:=i+1;
write('a='); readln(a);
end;
writeln('s=',s);
end.
begin
write('a='); readln(a);
s:=0;i:=1;
while a<>0 do
begin
if i mod 2 =0 then s:=s+a;
i:=i+1;
write('a='); readln(a);
end;
writeln('s=',s);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад