Информатика, опубликовано 2018-08-22 17:46:39 by Гость

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

Ответ оставил Гость

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)      write (a[i], );
     end;
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.

Форма вопроса доступна на полной версии этой страницы.