Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
А что такое abs?
Ответ дал:
0
Модуль, на случай, если число будет отрицательным.
Ответ дал:
0
Спасибо большое.
Вас заинтересует
1 год назад
1 год назад
8 лет назад
8 лет назад
9 лет назад