Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
WMC
86 / 86 / 1
Регистрация: 15.11.2011
Сообщений: 185
#1

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

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

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

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

Вывести четные положительные степени числа 2, не превышающие числа N
Напишите программу, которая вводит натуральное число N и выводит на экран...

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

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

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

2
log(n)
107 / 107 / 72
Регистрация: 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 / 17
Регистрация: 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
Привет! Вот еще темы с решениями:

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

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

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

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


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

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

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