Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/10: Рейтинг темы: голосов - 10, средняя оценка - 4.60
MIXA1800
0 / 0 / 0
Регистрация: 13.11.2010
Сообщений: 1
1

Непарные числа в диапазоне

16.11.2010, 21:29. Просмотров 1890. Ответов 2
Метки нет (Все метки)

Здравствуйте
У меня такая проблема нужно вывести непарные числа в диапазоне от 200 до 350
как это можно реализовать?
Я вот пробивал сделать только выводит все числа
Pascal
1
2
3
4
5
6
7
8
9
10
program k1;
uses crt;
var i:integer;
n:real;
begin clrscr;
for i:= 200 to 350  do
begin
write(i:6);
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.11.2010, 21:29
Ответы с готовыми решениями:

Распечатать числа в диапазоне от 1 до N, у которых остатки от деления на число Z не превышают числа M
Задача реализуется на основе оператора “for”, нужно распечатать числа в...

Найти все числа в диапазоне от M до N, имеющие ровно k делителей. Функция: количество делителей заданного числа
Найти все числа в диапазоне от M до N, имеющие ровно k делителей. Функция:...

Распечатать числа в диапазоне от 1 до N
Распечатать числа в диапазоне от 1 до N, у которых нет двузначных делителей(не...

Найти все числа Армстронга в диапазоне от a до b
. Найти все числа Армстронга в диапазоне от a до b, где a и b – целые...

Найти все числа Армстронга в диапазоне от a до b
Найти все числа Армстронга в диапазоне от a до b, где a и b – целые...

2
Nikita2009
103 / 102 / 9
Регистрация: 12.09.2009
Сообщений: 453
16.11.2010, 22:09 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program ver_1;
uses crt;
var i,n:integer;
begin
clrscr;
i:=250;
n:=300;
repeat
i:=i+1;
if i mod 2 <> 0 then
writeln(i);
until i = 300;
readln;
end.
вот
0
pryda
Неадекват и грубиян
291 / 285 / 294
Регистрация: 22.02.2010
Сообщений: 627
17.11.2010, 00:18 3
Pascal
1
2
3
4
5
6
7
8
9
10
var i:integer;
begin
i:=251;
while i<300 do
begin
  writeln(i);
  inc(i,2);
end;
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.11.2010, 00:18

Распечатать числа в диапазоне от 1 до N не оканчивающиеся на цифру K
Распечатать числа в диапазоне от 1 до N не оканчивающиеся на цифру K.

Вывести числа кратные N в диапазоне до 100
Вывести числа, кратные произвольно введенному числу (n) в диапозоне до 100. ...

Вывести все простые числа в диапазоне от 1 до N
Вывести все простые числа в диапазоне от 1 до N


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

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

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