tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Ввести 30 двузначных чисел и
Ввести 30 двузначных чисел и вывести на экран те у которых сумма цифр меньше 10
10149
3 03.08.2019 18:30
0
Ответы
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Nik228tyto4ki
29.05.2019 03:50
Отметьте правильные утверждение для такой записи числа а.это число в позиционной системе счисления б. это число 362 в. это запись числа с использованием римской системы...
канна
29.05.2019 03:50
Расшифруйте слова в анаграммах. выберите лишнее слово: 1)торнимо; 2)теринпр; 3) килонко; 4) еранск....
zhekeeva2013
07.09.2019 21:20
Сколько всего страниц включая нумерованные в третьем издании первой книги мальденштама...
Belcard
07.09.2019 21:20
Выведите на экран значение логического выражение,которое принимает значение true если кирпич имеющий форму прямоугольного параллепипеда с ребрами a,b,с может пройти через...
соннышко
07.09.2019 21:20
До завтра ! добрыня никитич и алёша попович нашли клад который состоял из 5 одинаковых монет. сундуки в котором лежали монеты богатырей обнаружили записку при чашечных...
масяня114
08.05.2021 12:13
Там ещё в ответе Алла написано Просто место не хватило...
MaliikaZ
08.05.2021 12:15
В зависимости от стажа работы на предприятии введена надбавка в размере: для работающих от 5 до 10 лет - 5%, для работающих от 10 до 15 лет - 10%, для работающих от 15...
programprogram
17.05.2021 09:23
6. Назви види сучасних персональних комп’ютерів....
babikovserega2
17.05.2021 09:25
Какое количество градусов нужно поставить чтобы робот сделал 4 оборота...
whatareyoudoing
17.05.2021 09:25
4. Даны числа: 1410, 3510, 110012, 10112. Чему равна сумма наибольшего и наименьшего чисел средиданных? В ответе укажите число в двоичной системе счисления....
Популярные вопросы
Что общего между предлогами и союзами и чем они отличаются друг от друга?...
3
Про числа x и y известно , что x не равен y и (x -1 )в квадрате +3 x...
1
Запишите пропущенное слово политическая патриархальная подданническая...
3
Решите пример: 1)20: 2.2/15+25.5/7: 1.1/35...
3
Числа вписали в 9 клеток и выполнили действия, указанные в каждой строчке...
1
Какой тип осадков выпадает в архангельске?...
1
Подумайте, какие фразеологизмы и поговорки используют по- в ситуациях,...
3
Оптовая цена учебника 170р. рознична 20% выше оптовой. какое наибольшее...
1
Краткая запись и решение . в одной бочке было в 3 раза больше бензина...
1
Дайте характерискику атомом-f и p .положение в пс хэ ,число p n e ,...
3
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.