В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Хэлпер228666
Хэлпер228666
30.12.2022 10:58 •  Информатика

Напишите программу которая вводит последовательность целых чисел заканчивающихся нулём и определяет сколько из этих чисел удовлетворяет условию: сумма значений цифр десятичной записи числа равно 10

Показать ответ
Ответ:
emilgaripov87
emilgaripov87
17.07.2020 18:17
Pascal

const     
n = 100; // Максимальное число элементов      
var   a : array [1..n] of integer;   
L,i,c,s,k : integer;    
begin 
L := 1; 
c := 10;   
while c <> 0 do   
begin   
readln (c);   
a[L] := c;   
L := L + 1; 
end; 
 l := l -1;  
k := 0;   
for i := 1 to L do    
begin   
c := a[i];   
s := 0;     
while c <> 0 do     
begin       
s := s + c mod 10;       
c := c div 10;     
end;     
if s = 10 then     
k := k + 1;   
end; 
writeln (); 
writeln (k);     
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота