Дан массив, содержащий 50 неотрицательных целых чисел, не превосходящих 10000.Напишите

Question

Дан массив, содержащий 50 неотрицательных целых чисел, не превосходящих 10000.Напишите

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

Задать свой вопрос

Виктория Сорнарчук 2019-08-07 01:26:03

constN = 50;vara: array [1..N] of longint;i, j, k: longint;beginfor i := 1 to N doreadln(a[i]);...end.

Злата
Информатика
2019-08-07 01:20:51
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

прямоугольник длина 52,что на 15 м больше ширины.найди периметр.сколько метров

13-14 век, феодальная Япония. На рынок приходит человек и покупает семяна,

Из колоды в 36 карт вытаскивают три карты. какова возможность того,

из каких материалов строили дома на юге Европы? на Севере? объяснялось

-20x=1,6x^2 Решите уравнение, пожалуйста!

Помогите решить задачку.( раздел реальной математики )На пост председателя школьного совета

помогите даю 17 раутов

разложите многочоен на множители а^3 + 3а^2-а-3

На рычаг действует сила 4 Н. Чему равен момент этой силы

в прямоугольном треугольнике синус 1-го из углов 0,4 а катет

Ярослава Алякимова · Answer 1 · 2019-08-07 01:29:26+3:00

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

О проекте

Дан массив, содержащий 50 неотрицательных целых чисел, не превосходящих 10000.Напишите

Добро пожаловать!