Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
0 / 0 / 0
Регистрация: 03.06.2018
Сообщений: 5
1

Поиск суммы всех двузначных чисел, кратных числу, введенному с клавиатуры

03.06.2018, 11:35. Показов 2549. Ответов 6
Метки нет (Все метки)

Напишите программу для поиска суммы всех двузначных чисел, кратных числу, введенному с клавиатуры.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.06.2018, 11:35
Ответы с готовыми решениями:

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

Составить программу вычисления суммы всех натуральных двузначных чисел,кратных 3
Составить программу вычисления суммы всех натуральных двузначных чисел,кратных 3

Подсчитать количество элементов, кратных числу, введенному с клавиатуры
Дан одномерный массив размерностью 15, сформированный генератором случайных чисел. Подсчитать...

Создать 2 двунаправленных списка элементов целого типа и поиск в них чисел соответствующих числу введенному с клавиатуры
создать 2 двунаправленный список элементов целого типа и поиск в них чисел соответствующих числу...

6
Почетный модератор
64085 / 47494 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
03.06.2018, 11:41 2
Pascal
1
2
3
s:=0;
for i:=10 to 99 do
if i nod k=0 then s:=s+i;
0
0 / 0 / 0
Регистрация: 03.06.2018
Сообщений: 5
03.06.2018, 11:58  [ТС] 3
спасибо, но можно ли полную прогу, с оформлением?

Добавлено через 11 минут
спасибо, но можно ли полную прогу, с оформлением? и что значит nod в третей строке??
0
Почетный модератор
64085 / 47494 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
03.06.2018, 12:02 4
Цитата Сообщение от Alexander_69 Посмотреть сообщение
что значит nod
Это опечатка, нужно mod
0
0 / 0 / 0
Регистрация: 03.06.2018
Сообщений: 5
03.06.2018, 12:06  [ТС] 5
Pascal
1
2
3
4
5
6
7
8
9
10
Var
   a,s,k,i:integer;
Begin
     Writeln (k);
     Read (k);
     s:=0;
  for i:=10 to 99 do
     if i mod k=0 then s:=s+i;
     writeln(s);
          end.
ПРОВЕРЬ правильно ли?
Большое спасибо
0
Почетный модератор
64085 / 47494 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
03.06.2018, 12:13 6
Лучший ответ Сообщение было отмечено Alexander_69 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
Var s,k,i:integer;
Begin
Write('k=');
Readln (k);
s:=0;
for i:=10 to 99 do
if i mod k=0 then s:=s+i;
writeln(s);
end.
1
0 / 0 / 0
Регистрация: 03.06.2018
Сообщений: 5
03.06.2018, 12:22  [ТС] 7
Еще раз спасибо, от души душевно в душу...)))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.06.2018, 12:22

Составить программу вычисления суммы факториалов всех чисел от M до N кратных данному числу K
2.Составить программу вычисления суммы факториалов всех чисел от M до N кратных данному числу...

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

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

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


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru