Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
3 / 3 / 0
Регистрация: 03.02.2012
Сообщений: 45

Массив. Выяснить, верно ли, что общее число учеников в школе есть четырехзначное число

26.04.2012, 19:32. Показов 1715. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
11.30. В массиве хранится информация о численно*сти учеников в каждом из 42 классов школы. Выяс*нить, верно ли, что общее число учеников в школе есть четырехзначное число.

можн овзять числа поменьше если нужно.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
26.04.2012, 19:32
Ответы с готовыми решениями:

Массив. Выяснить, верно ли, что общее число учеников в школе есть четырехзначное число
В массиве хранится информация о численности учеников в каждом из 42 классов школы. Выяснить, верно ли, что общее число учеников в школе...

Дано натуральное число. Верно ли, что это число четырехзначное
Дано натуральное число. Верно ли, что это число четырехзначное? Составное условие и вложенный условный оператор не использовать. ...

Выяснить, верно ли, что сумма элементов массива есть неотрицательное число
Выяснить, верно ли, что сумма элементов массива есть неотрицательное число.

1
тыдыщ
 Аватар для klast
206 / 189 / 166
Регистрация: 19.01.2011
Сообщений: 483
26.04.2012, 20:45
Лучший ответ Сообщение было отмечено OmgMorty как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  f, i, k, a: longint;
 
begin
  for i := 1 to 42 do
  begin
    a := random(100);
    inc(k, a);
    write(a, ' ');
  end;
  while k > 0 do
  begin
    inc(f);
    k := k div 10;
  end;
  writeln;
  if f = 4 then writeln('Yes')
  else writeln('No');
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
26.04.2012, 20:45
Помогаю со студенческими работами здесь

Дано натуральное число n (n < 9999). Выяснить, верно ли, что это число содержит ровно три одинаковые цифры
Дано натуральное число n (n &lt; 9999). Выяснить, верно ли, что это число содержит ровно три одинаковые цифры, если оно записано четырьмя...

Верно ли, что четырехзначное число содержит три одинаковые цифры.
Дано натуральное четырехзначное число n. Верно ли, что это число содержит три одинаковые цифры.

Верно ли, что введенное целое положительное четырехзначное число является палиндромом
2) Написать программу, в результате выполнения которой булевская переменная t получает TRUE, если выполняется указанное условие, и FALSE в...

Массив. Верно ли, что в массиве есть хотя бы одно отрицательное и четное число
PascalABC. Переменной t присвоить значение истина, если в одномерном массиве хотя бы одно отрицательное и четное число.

Дано натуральное четырехзначное число n. Верно ли, что все четыре цифры числа различны
Помогите пожалуйста 1)Дано натуральное четырехзначное число n. Верно ли, что все четыре цифры числа различны, как, например, различны все...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных через динамический список в справочнике
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru