Напишите программу,которая последовательности натуральных чисел определяет сумму нечётных двухзначных чисел.Программа получает на вход кол-во чисел в прследовательности, а затем сами числа.Кол-во чисел не превышает 1000.Введенные числа не превышают 30 000.Программа должна вести одно число-сумму нечетных двухзначных чисел в данной последовательности
Ответы
Ответ дал:
0
Program hhh54;
var i,n,x,s:longint;
begin
s:=0;
read (n);
for i:= 1 to n do
begin
read (x);
if (x > 9) and (x < 100) and (x mod 2 <> 0) then s:=s+x;
end;
write (s);
end.
var i,n,x,s:longint;
begin
s:=0;
read (n);
for i:= 1 to n do
begin
read (x);
if (x > 9) and (x < 100) and (x mod 2 <> 0) then s:=s+x;
end;
write (s);
end.
Ответ дал:
0
Спасибо
Вас заинтересует
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад