AngelChan2004
23.06.2022 22:41

Дан массив, содержащий 50 неотрицательных целых чисел, не превышающих 10000. напишите алгоритм, позволяющий найти и вывести количество всех содержащихся в массиве трехзначных чисел, у которых цифра в разряде сотен равна сумме цифр в разряде десятков и единиц. если подходящих чисел в массиве нет, программа должна вывести число 0. исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных переменных

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
freax1613
19.08.2020 19:56
//Pascal ABC.NET v3.1 сборка 1219

const
N = 50;
var
a: array [1..N] of longint;
i, j, k: longint;
begin
for i := 1 to N do
readln(a[i]);
for i:=1 to n do
 if (length(inttostr(a[i]))=3) and (a[i] div 100=a[i] mod 100 div 10 + a[i] mod 10) then inc(k);
writeln(k);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота