Дан массив, содержащий 50 неотрицательных целых чисел, не превышающих 10000. напишите алгоритм, позволяющий найти и вывести количество всех содержащихся в массиве трехзначных чисел, у которых цифра в разряде сотен равна сумме цифр в разряде десятков и единиц. если подходящих чисел в массиве нет, программа должна вывести число 0. исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных переменных
251
448
Ответы на вопрос:
//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.
Популярно: Информатика
-
DDddd53222225.05.2020 10:51
-
ЗаучкаГрейнджер30.05.2020 04:23
-
Нура19126.08.2020 13:47
-
парацетомол129.11.2020 00:13
-
Kulkovadarya9725.12.2021 07:57
-
GelyaKazarik15.11.2022 18:56
-
usokolova07125.03.2021 19:20
-
abroe18.05.2022 01:59
-
жанара2805.08.2020 07:48
-
RaritetnuWioN17.04.2021 17:40