Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
витя93
0 / 0 / 0
Регистрация: 26.03.2011
Сообщений: 16
#1

Найти все натуральные числа от 1 до 100, кратные 3 - Turbo Pascal

28.03.2011, 16:14. Просмотров 1187. Ответов 1
Метки нет (Все метки)

Найти все натуральные числа от 1 до 100, кратные 3.
http://www.cyberforum.ru/turbo-pascal/thread231109.html
Заранее благодарю!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.03.2011, 16:14
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти все натуральные числа от 1 до 100, кратные 3 (Turbo Pascal):

Составить программу: найти все натуральные числа кратные 3, интервал от1 до 1000
Составить программу: найти все натуральные числа кратные 3, интервал от1 до 1000

Найти кратные пяти натуральные четырёхзначные числа, в записи которых все цифры различны
Среди четырехзначных натуральных чисел выбрать те, у которых все четыре цифры...

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

Даны натуральные числа n, m. Найти все натуральные числа меньшие n, квадрат суммы цифр которых равен m
Даны натуральные числа n, m. Найти все натуральные числа меньшие n, квадрат...

Вывести все натуральные числа от одного до 100 делящиеся на 3 и их количство
вывести все натуральные числа от одного до 100 делящиеся на 3 и их количство.

1
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
28.03.2011, 16:25 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
Uses
 CRT;
Var
 i:byte;
begin
 i:=0;
 repeat
  i:=i+3;
  write(i:3);
 until i>98;
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Uses
 CRT;
Var
 i:byte;
begin
 i:=0;
 repeat
  inc(i);
  if i mod 3=0 then
   write(i:3);
 until i>100;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.03.2011, 16:25
Привет! Вот еще темы с решениями:

Вывести все натуральные числа, кратные 5, которые не превышают заданное число N
Вывести все натуральные числа, кратные 5, но которые не превышают число N,...

Все числа, кратные 5, в массиве a[1.4;1.8] с числами в диапазоне 0.100 выделить цветом
Все числа, кратные 5 в массиве a с числами в диапазоне 0..100 выделить цветом....

Найти числа кратные 11 в интервале от 12 до 100 и их произведение
Найти числа кратные 11 в интервале от 12 до 100 и их произведение. Program...

Найдите все числа большие 20, меньшие 100, кратные 4 и при делении на пять дающие остаток 4
Найдите все числа большие 20, меньшие 100, кратные 4 и при делении на пять...


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

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

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