Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 16.02.2011
Сообщений: 19
1

Вывести на экран все кратные числа заданным

06.05.2011, 20:03. Показов 832. Ответов 1
Метки нет (Все метки)

Ребята помогите программу через процедуру записать
Даны натуральные числа А и В. Вывести на экран все кратные им числа.
Найти сумму цифр числа.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program chetitre;
var x,y,z,m:integer;
begin
write('x = ');
readln(x);
write('m = ');
 
readln(m);
write('sovmestnie kratnie - ');
for y:=1 to x do
for z:=1 to m do
begin
if (x mod y = 0) and (m mod z = 0) then
if y=z then write(y,' ');
end;
 readln;
writeln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.05.2011, 20:03
Ответы с готовыми решениями:

Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа.
Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа.

Вывести на экран все четырехзначные числа, кратные 1111
вывести на экран все 4х значные числа кратные 1111

Вывести на экран все числа, кратные 2 и 3 из интервала [25, 145]
Вот 3 задачки, помогите чем можете пожалуйста. 1.Вывести на экран все числа, кратные 2 и 3 из...

Вывести на экран все целые числа из диапазона от А до В, кратные трём
задали 10 задач помогите решить 1) вычислить int(1.3) 2)Найти и объяснить ошибки в следующей...

1
249 / 249 / 135
Регистрация: 09.04.2011
Сообщений: 524
06.05.2011, 20:42 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program chetitre;
uses crt;
var x,m:integer;
procedure cyberforum(x,m: integer);
var y,z: integer;
begin
for y:=1 to x do
for z:=1 to m do
begin
if (x mod y = 0) and (m mod z = 0) then
if y=z then write(y,' ');
end;
end;
begin
write('x = ');
readln(x);
write('m = ');
readln(m);
write('sovmestnie kratnie - ');
cyberforum(x,m);
readkey
end.
Найти сумму цифр числа.
это здесь же? Тогда оно у вас не реализованао.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.05.2011, 20:42

Вывести на экран все двузначные числа,кратные 11 и найти их сумму
Знаю надоела) Вывести на экран все двузначные числа,кратные 11 и найти их сумму.

Вывести на экран все Двухзначные числа от 1 до 100 кратные 5 и найти их сумму
Вывести на экран все Двухзначные числа от 1 до 100 кратные 5 и найти их сумму Добавлено через 5...

Вывести на экран все кратные тринадцати натуральные числа, меньше 100
Есть еще такая задачка на циклы. Вывести на экран все кратные тринадцати натуральные числа, меньше...

Вывести на экран все целые числа от а до b ,кратные некоторому числу с
Вывести на экран все целые числа от а до b ,кратные некоторому числу с


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.