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

Question

Информатика

Харитон

26 мая, 08:51

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

+5

Ответы (1)

Знаете ответ на вопрос?

Енюша · Answer 1

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.