сервис вопросов и ответовСрочно!!! Пожалуйста!!!
5-9 класс|
|
задайте алгоритм выбирается 100 четырехзначных чисел. определить сколько среди них счастливых
Dasholnik
02 дек. 2014 г., 20:06:25 (9 лет назад)
Twinkid
02 дек. 2014 г., 21:18:37 (9 лет назад)
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.
Zanncmann0324
02 дек. 2014 г., 22:21:02 (9 лет назад)
Комментарий удален
Belousovvl22
03 дек. 2014 г., 0:30:17 (9 лет назад)
Спасибо но это не то
Igorpayk2001
03 дек. 2014 г., 4:43:22 (9 лет назад)
надо линейный алгоритм
Ответить
Другие вопросы из категории
составте синквейн (пятистрочник) ПЛИЗ≡≡≡⇒⇒
форма 1 одно слово-сущ 2 два слова-прил 3 три слова-глаг 4 четыре слова (четыре отдльных слова два словосочетаний или предложений)
5 одно слово-синоним
содержание 1 имя объекта 2 свойство объекта 3 возможности объекта(активные и пассивные)
4 ваше личное отношение к объекту 5 вывод заключение
пример красный горячий извергаются пылают спасаются
страх катасрофа гибель опасность Ад
ребятульки, срочно помогите пожалуйста)
найти произведение элементов целочисленного моссива 10 элементов каждый которого равен корню проведущего 1элемент моссива вводится с клавиатуры
1. Для каждого из указанных подмножеств назовите множество, с которым оно связано отношением «является разновидностью» (назовите общее имя, отвечающее на
вопрос «Что это такое?»):а) местоимение;
б) запятая;
в) джойстик;
г) параллелограмм;
д) ратуша;
е) басня;
ж) капилляр.
2. Найдите в списке шесть пар множеств, между которыми существуют отношения «является разновидностью». Определите в каждой такой паре имя подмножества. Назовите для него хотя бы одно дополнительное свойство:
Помогите составить программы в паскале по этим двум алгоритмам.
Заранее спасибо!
Читайте также
Срочно! Напишите сообщение про Системный блок. Рзамером, примерно с альбомный лист.
Только содердательно и понятным языком. Срочно, пожалуйста помогите!
:)
Ребят, срочно, пожалуйста помогите!!
Скачал DVD фильм объёмом 4,2 Гб за время- 2 часа. нужно найти скорость в мб/сек
Вы находитесь на странице вопроса "Срочно!!! Пожалуйста!!!", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.