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

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
WMC
86 / 86 / 1
Регистрация: 15.11.2011
Сообщений: 185
#1

Вывести все четные числа, начиная с числа N и до числа М - Pascal ABC

08.12.2011, 22:50. Просмотров 749. Ответов 2
Метки нет (Все метки)

Пожалуйста решите с использованием while
Вывести все четные числа, начиная с числа N и до числа М. Числа N и М задает пользователь
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2011, 22:50
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вывести все четные числа, начиная с числа N и до числа М (Pascal ABC):

Оператор WHILE: Вывести все четные числа, начиная с числа N и до числа М - Pascal ABC
Вывести все четные числа, начиная с числа N и до числа М. Числа N и М задает пользователь, подсчитать их сумму

Вывести все нечетные числа, начиная с числа N и до числа М - Pascal ABC
Вывести все нечетные числа, начиная с числа N и до числа М. Числа N и М задает пользователь

Вывести все четные числа от 0 до N - Pascal ABC
1.Цикл с параметром FOR… TO… . 2.Условный оператор IF… THEN… . 3.Вывести все четные числа от 0 до N.

Вывести все четные двухзначные числа - Pascal ABC
Помогите пожалуйста решить. Вывести все четные двухзначные числа.

Вывести на экран в столбик все цифры переданного ей числа, начиная с первой. Процедуры - Pascal ABC
помогите пожалуйста. нужно написать процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с первой. ...

Если цифра младшего разряда четная, то вывести все четные цифры числа, в противном случае все нечетные. - Pascal ABC
Если цифра младшего разряда четная, то вывести все четные цифры числа, в противном случае все нечетные.

2
log(n)
107 / 107 / 32
Регистрация: 13.10.2011
Сообщений: 227
08.12.2011, 22:59 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
m,n:integer;
begin
writeln('Введите n и m');
repeat
readln(n);
readln(m);
until m >= n;
while m >= n do begin
 if n mod 2 = 0 then writeln(n);
  n:=n+1;
end;
end.
0
TheZzZ
13 / 13 / 8
Регистрация: 26.05.2011
Сообщений: 37
08.12.2011, 22:59 #3
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program Whi;
Var m,n,i:integer;
 
Begin
Writeln('Введите N');
Readln(n);
Writeln('Введите m');
Readln(m);
 
i:=n;
While i<=m do
  Begin
    If i mod 2=0 then
      Write(i,'  ');
    inc(i);
  end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2011, 22:59
Привет! Вот еще темы с ответами:

Вывести все содержащиеся в данном массиве четные числа в порядке убывания их индексов - Pascal ABC
1.6. Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве четные числа в порядке убывания их индексов, а также их...

Вывести все содержащиеся в данном массиве четные числа в порядке убывания их индексов - Pascal ABC
дан целочисленный массив размера N.вывести все содержащиеся в данном массиве четные числа в порядке убывания их индексов,а также их...

Вывести в том же порядке все четные числа из данного набора и количество К таких чисел - Pascal ABC
Дано целое число N и набор из N целых чисел. Вывести в том же порядке все четные числа из данного набора и количество К таких чисел. ...

Для данного числа N вывести все числа последовательности - Pascal ABC
Помогите пожалуйста. Для данного числа N вывести все числа последовательности {Ai=i*N+2:i&gt;=0;Ai&lt;=2^12;Ai=0( mod 7)} Если таких чисел нет,...


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

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

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