4 / 4 / 1
Регистрация: 14.11.2010
Сообщений: 37
1

Определить количество первых двухзначных чисел, кратных 7, не превышающих в сумме 100

24.01.2011, 14:03. Показов 3327. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
1) определить количество первых двухзначных чисел, кратных 7, не превышающих в сумме 100 (цикл "пока")




2) определить сумму цифр в числе, введенном с клавиатуры
(функции див и мод)

p.s.
просто вроде
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.01.2011, 14:03
Ответы с готовыми решениями:

Определить количество элементов матрицы, кратных 3 и не превышающих 100
добрый день! помогите, пожалуйста,с задачкой... очень прошу Дан 2-мерный массив целых чисел(М...

Вычислить количество натуральных чисел, кратных трем и не превышающих N
Помогите пожалуйста составить программу по условию : Вычислить количество натуральных чисел,...

Вычислить количество натуральных чисел, кратных трем и не превышающих N
Помогите пожалуйста написать программу чтобы было по условию задачи : Вычислить количество...

Вычислить количество натуральных чисел, кратных трем и не превышающих заданное число
1. Дано целое положительное число N. Вычислить количество натуральных чисел, кратных трем и не...

2
2923 / 844 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
24.01.2011, 14:11 2
цикл "пока" - это что то новое
функции див и мод - таких функций нет в паскале
0
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
24.01.2011, 14:33 3
Лучший ответ Сообщение было отмечено shad0w как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var a,s,k:integer;
begin
clrscr;
writeln('Первые двухзначные числа, в сумме не более 100:');
a:=7;
s:=0;
k:=0;
while s+a<100 do
 begin
  a:=a+7;
  s:=s+a;
  k:=k+1;
  write(a,' ');
 end;
writeln;
write('Их количество=',k,' сумма=',s);
readln
end.
Добавлено через 55 секунд
2.
Pascal
1
2
3
4
5
6
s:=0;
while a>0 do
 begin
  s:=s+a mod 10;
  a:=a div 10;
 end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.01.2011, 14:33
Помогаю со студенческими работами здесь

Вычислить количество натуральных чисел кратных пяти и не превышающих заданное число
Нужно написать программу в С++,помогите кому не сложно Дано целое положительное число N....

Циклический процесс. Вычислить количество натуральных чисел, кратных трем и не превышающих N
Циклический процесс. Вычислить количество натуральных чисел, кратных трем и не превышающих N....

Определить в последовательности количество чисел кратных трем, и количество чисел, кратных семи
Дано натуральное число n и целые числа x1 ,x2, … xn. Определить количество чисел xi кратных трем,...

Найти 10 первых натуральных чисел, оканчивающихся на цифру 7 кратных числу 9, не меньших 100 (Pascal -> C++)
Найти 10 первых натуральных чисел, оканчивающихся на цифру 7 кратных числу 9 и находящихся в...


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

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

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