Написать программу которая про суммирует все 2ух значные числа содержащие 1

пацанка6 пацанка6    3   19.05.2019 01:40    1

Ответы
1990200827 1990200827  12.06.2020 06:55

var a,a1,a2,sum,n,i:integer;

begin

readln (n);

for i:=1 to n do

begin

readln (a);

a1:=a div 10;

a2:=a mod 10;

if (a1=1) or (a2=1) then sum:=sum+a;

end;

writeln (sum);

end.

 

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