Найти сумму и количество всех двухзначных нечетных чисел из 80 заданных целых чисел.

bassanova46 bassanova46    1   15.03.2020 02:42    0

Ответы
lllllkkkkkkk lllllkkkkkkk  11.10.2020 21:45

Pascal ABC

var i,k,s,n:integer;

begin

k:=0;

s:=0;

for i:=1 to 80 do begin

readln(n);

if (n>9) and (n<100) and  (n mod 2<>0) then begin s:=s+i; k:=k+1; end;

end;

writeln('количество ',k);

writeln('Сумма ',s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика