Ввести 30 двузначных чисел и вывести на экран те у которых сумма цифр меньше 10

10149 10149    3   03.08.2019 18:30    0

Ответы
OlgaStarikova OlgaStarikova  03.10.2020 20:43
Program prog;
uses crt;

var a: array [1..30] of integer;
    i: integer;

begin
clrscr;

for  i:=1 to 30 do
     begin
          write('a[',i,'] = ');
     readln(a[i]);
     end;

for  i:=1 to 30 do
     begin
     if (abs(a[i]) mod 10)+ (abs(a[i]) div 10) < 10 then
     write (a[i], '  ');
     end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика