Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
hardboy
0 / 0 / 0
Регистрация: 30.06.2010
Сообщений: 7
#1

Для первых двадцати натуральных чисел определить... - Pascal

31.08.2010, 13:20. Просмотров 509. Ответов 1
Метки нет (Все метки)

Для первых двадцати натуральных чисел определить - является ли это число парным в интервале от 2 до 10, непарным в интервале от 1 до 10, или это число попадает в интервал от 11 до 20.

Помогите пожалуйста, срочно надо, заранен спасибо!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.08.2010, 13:20
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Для первых двадцати натуральных чисел определить... (Pascal):

Определить массив первых 120 натуральных чисел... - Pascal
Определить массив первых 120 натуральных чисел, кратных 5, и распечатать его в виде матрицы 10x12. Элементы первой и последней строки...

Рассчитать факториалы для первых 10 натуральных чисел, используя только 1 цикл. - Pascal
Дана программа выдающая первые десять натуральных чисел и их факториалы: program factor; uses CRT; var a,i,j,f:integer; begin ...

Для каждого из девяти последовательно вводимых натуральных чисел n вычислить произведение первых - Pascal
Для каждого из девяти последовательно вводимых натуральных чисел n вычислить произведение первых n сомножителей:

Составить программу вывода на экран простых чисел их первых N натуральных чисел.. - Pascal
Составить программу вывода на экран простых чисел их первых N натуральных чисел..

Вложеные циклы.Составить программу вывода на экран простых чисел из первых N натуральных чисел используя решето Эратосфена. - Pascal
Составить программу вывода на экран простых чисел из первых N натуральных чисел используя решето Эратосфена. Решить задачу с...

2.Найти сумму первых 10 натуральных чисел - Pascal
Народ помогите сделать задачу

1
Puporev
Модератор
53999 / 41632 / 14718
Регистрация: 18.05.2008
Сообщений: 97,856
31.08.2010, 13:34 #2
Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 20 do
if (i in [2..10]) and (i mod 2=0) then writeln(i,' - четное число из интервала [2..10]')
else if (i in [1..9]) and (i mod 2<>0) then writeln(i,' - нечетное число из интервала [1..10]')
else writeln(i,' - число из интервала [11..20]');
readln
end.
Добавлено через 6 минут
Или можно так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses crt;
var i:byte;
begin
clrscr;
repeat
repeat
clrscr;
writeln('Вводите числа от 1 до 20, окончание ввода 0:');
readln(i);
until i in [0..20];
case i of
0:exit;
2,4,6,8:begin
        writeln(i,' - четное число из интервала [2..10]');
        readln;
        end;
1,3,5,7,9:begin
          writeln(i,' - нечетное число из интервала [1..10]');
          readln;
          end;
else
 begin
  writeln(i,' - число из интервала [11..20]');
  readln;
  end;
end;
until i=0;
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.08.2010, 13:34
Привет! Вот еще темы с ответами:

Вычислить сумму первых ста натуральных чисел - Pascal
вычислить сумму первых ста натуральных чисел!срочно!

Вычислить сумму квадратов из первых натуральных чисел - Pascal
Написать нужно программы 1)Вычислить сумму квадратов из первых натуральных чисел. 2)Найти число эл-тов массива равных к,где...

Цикл while. Вывести сумму первых ста натуральных чисел - Pascal
Помогите, пожалуйста, решить задачу 1)Вывести суммы первых ста натуральных чисел. задача в паскале, через While

Найти 15 первых натуральных чисел делящихся нацело на 19 и больших 100 - Pascal
1 С начала 1990 года по некоторый день прошло n месяцев и 2 дня (n&gt;=1). Определить к какому месяцу (январь, февраль, и тд.) относится этот...


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

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

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