Question

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

Answer 1

//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.