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

Ответы:
AIDA GOROHOVA
04-04-2017 14:53

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.  

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Святослав Сомчук

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Написать программу которая про суммирует все 2ух значные числа содержащие 1» от пользователя Святослав Сомчук в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!