Срочно!!! Пожалуйста!!!
5-9 класс
|
задайте алгоритм выбирается 100 четырехзначных чисел. определить сколько среди них счастливых
program z;
var mas: array [1..100] of integer;
i, a, b, b1, s: integer;
begin
for i:=1 to 100 do
readln(mas[i]);
for a:=1 to 100 do
begin
b:=mas[i] div 1000 + (mas[i] div 100 - mas[i] div 1000 * 10);
b1:=mas[i] mod 10 + (mas[i] mod 100 div 10);
if b1 = b then s:=s+1;
end;
writeln(s);
end.
Комментарий удален
Спасибо но это не то
надо линейный алгоритм
Другие вопросы из категории
форма 1 одно слово-сущ 2 два слова-прил 3 три слова-глаг 4 четыре слова (четыре отдльных слова два словосочетаний или предложений)
5 одно слово-синоним
содержание 1 имя объекта 2 свойство объекта 3 возможности объекта(активные и пассивные)
4 ваше личное отношение к объекту 5 вывод заключение
пример красный горячий извергаются пылают спасаются
страх катасрофа гибель опасность Ад
найти произведение элементов целочисленного моссива 10 элементов каждый которого равен корню проведущего 1элемент моссива вводится с клавиатуры
вопрос «Что это такое?»):а) местоимение;
б) запятая;
в) джойстик;
г) параллелограмм;
д) ратуша;
е) басня;
ж) капилляр.
2. Найдите в списке шесть пар множеств, между которыми существуют отношения «является разновидностью». Определите в каждой такой паре имя подмножества. Назовите для него хотя бы одно дополнительное свойство:
Заранее спасибо!
Читайте также
Только содердательно и понятным языком. Срочно, пожалуйста помогите!
:)
Скачал DVD фильм объёмом 4,2 Гб за время- 2 часа. нужно найти скорость в мб/сек