1. 

   Philip_Port New Member

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

    

   Philip_Port, 28 фев 2010

   #1
2. 

   Istinyi_Forum4anin New Member

   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.
    

    

   Istinyi_Forum4anin, 28 фев 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня