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

Найти сумму и количество всех двузначных чисел кратных пяти

15.02.2016, 05:13. Показов 9219. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Не могу решить задачу, 4 пары сидел над ней, помогите.
Условие: Найти сумму и количество всех двузначных чисел кратных пяти.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
15.02.2016, 05:13
Ответы с готовыми решениями:

Ввести 10 чисел. Найти сумму каждого пятого и количество кратных пяти
Ввести 10 чисел. Найти сумму каждого пятого и количество кратных пяти

Вычислите количество всех двузначных чисел кратных 6
1. Вычислите количество всех двузначных чисел кратных 6.

Вычислите количество всех двузначных чисел кратных 6
вычислите количество всех двузначных чисел кратных 6 в pascal

3
133 / 148 / 64
Регистрация: 27.06.2013
Сообщений: 536
15.02.2016, 13:05
Чисел 18. Сумма = (10+95)*18/2.
Ну, а дальше сам.
0
39 / 39 / 49
Регистрация: 18.12.2015
Сообщений: 127
16.02.2016, 12:43
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Может быть не самый лучший вариант:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program z1662557;
 var k,s,i:integer;
begin
 k:=0;
 s:=0;
 for i:=10 to 99 do
  if i mod 5=0
   then begin
    k:=k+1;
    s:=s+i
    end;
writeln('k=',k,' s=',s)
end.
Добавлено через 1 минуту
Если брать и отрицательные двузначные, то сумма=0, количество=36.

Добавлено через 22 часа 6 минут
Вариант с циклом while:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program z1662557_2;
 var k,s,i:integer;
begin
 k:=0;
 s:=0;
 i:=10;
 while i<100 do
  begin
   k:=k+1;
   s:=s+i;
   i:=i+5;
  end;
writeln('k=',k,' s=',s)
end.
1
0 / 0 / 0
Регистрация: 15.02.2016
Сообщений: 4
17.02.2016, 06:53  [ТС]
Спасибо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
17.02.2016, 06:53
Помогаю со студенческими работами здесь

Найти сумму натуральных четных двузначных чисел, кратных 3
1. Найти сумму натуральных четных двузначных чисел, кратных 3. 2. Получить значения функций SinX и CosX для 0 &lt;=Х &lt;= 2pi с...

Найти количество кратных трем двузначных чисел последовательности
ребят, в вузе задали решить несколько задач на паскале. Помогите. 2. С клавиатуры вводится n чисел. Найти количество кратных трем...

Найти сумму чисел, кратных пяти
Напишите, а то я туплю конкретно Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 5....

Найти сумму всех двузначных чисел из строки
Помогите пожалуйста! Дана строка, состоящая из слов и чисел, разделенных пробелами. Найти сумму всех двузначных чисел из этой строки.

Поиск суммы всех двузначных чисел, кратных числу, введенному с клавиатуры
Напишите программу для поиска суммы всех двузначных чисел, кратных числу, введенному с клавиатуры.


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru