Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.52/29: Рейтинг темы: голосов - 29, средняя оценка - 4.52
0 / 0 / 0
Регистрация: 01.11.2008
Сообщений: 12
1

Даны числа а и b, вывести все целые числа между ними

11.12.2008, 10:37. Показов 5769. Ответов 9
Метки нет (Все метки)

Нужно решить через любой цикл(while,repeat,until):
Даны числа а и b вывести все целые числа между этими а и b в порядке убывания а так же их кол-во.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.12.2008, 10:37
Ответы с готовыми решениями:

Даны два числа m и n. вывестивсе целые числа между ними в порядке убывания
ребят помогите вобще не шарю: даны два числа m и n. вывестивсе целые числа между ними в порядке...

Даны целые положительные числа A и B (A < B). Вывести все целые числа от A до B включительно
Даны целые положительные числа A и B (A &lt; B). Вывести все целые числа от A до B включительно; при...

Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами
Даны два целых числа A и B (A &lt; B). Вывести все целые числа, расположенные между данными числами...

Даны целые положительные числа A и B (A < B). Вывести все целые числа от A до B включительно; при этом каждое
Даны целые положительные числа A и B (A &lt; B). Вывести все целые числа от A до B включительно; при...

9
Супер-модератор
8767 / 2502 / 142
Регистрация: 07.03.2007
Сообщений: 11,856
11.12.2008, 10:45 2
по-моему, судя по твоим заданиям, ты вообще прогулял паскаль, причем начиная с первой пары или урока... читай учебник, это уже совсем примитивное... считать два числа и в цикле вывести числа в промежутке между заданными числами - совершенно несложно
0
Cлавик
11.12.2008, 11:10 3
Цитата Сообщение от WooDooMan Посмотреть сообщение
по-моему, судя по твоим заданиям, ты вообще прогулял паскаль, причем начиная с первой пары или урока... читай учебник, это уже совсем примитивное... считать два числа и в цикле вывести числа в промежутке между заданными числами - совершенно несложно
Можно спросить а Паскаль в будущем в работе будет нужен?
Супер-модератор
8767 / 2502 / 142
Регистрация: 07.03.2007
Сообщений: 11,856
11.12.2008, 11:35 4
а какая у тебя будет работа? если думаешь быть программером, то паскаль не повредит, он приучает к дисциплине...
0
701 / 573 / 59
Регистрация: 18.11.2008
Сообщений: 2,147
11.12.2008, 11:36 5
Цитата Сообщение от Cлавик Посмотреть сообщение
Можно спросить а Паскаль в будущем в работе будет нужен?
именно паскаль - нет
но его синтаксис знать не помешает
0
Почетный модератор
64085 / 47494 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
11.12.2008, 13:22 6
Можно спросить а Паскаль в будущем в работе будет нужен?
Нужна будет сообразиловка и ответственность, т.е. качества от избытка которых Вы не страдаете.
0
67 / 67 / 24
Регистрация: 21.11.2008
Сообщений: 226
12.12.2008, 14:31 7
а и в целые числа?
0
0 / 0 / 0
Регистрация: 01.11.2008
Сообщений: 12
12.12.2008, 14:33  [ТС] 8
Цитата Сообщение от Викдон Посмотреть сообщение
а и в целые числа?
да
0
67 / 67 / 24
Регистрация: 21.11.2008
Сообщений: 226
12.12.2008, 14:51 9
Код
var a,b,max,min:integer;
 begin
   write('Введите а');
   readln(a);
   write('Введите b');
   readln(b);
     if a>b then
       begin
         max:=a;
         min:=b;
       end
     else 
         begin
           max:=b;
           min:=a;
         end;

  repeat
     write(max-1,' ');
  until max=min+1;
readln;
end;
0
Of Wolf and Man
998 / 195 / 5
Регистрация: 09.07.2008
Сообщений: 1,784
12.12.2008, 15:03 10
На 2 байта меньше.
и в предыдущем примере количество не считается.

Код
var i,a,b :integer
begin

write ('vvedite a');
readln(a);
write ('vvedite b');
readln(b);

if a>b then begin
                      for i:=a downto b do writeln(i);
               writeln('kolvo chisel =', a-b);
               end
else begin
                      for i:=b downto a do writeln(i);
               writeln('kolvo chisel =', a-b);
               end;
end.
Добавлено через 8 минут 35 секунд

Можно еще так попробовать.
с использованием только 2х переменных.

Код
var a,b :integer
begin

write ('vvedite a');
readln(a);
write ('vvedite b');
readln(b);

if a>b then begin
                    writeln('kolvo chisel =', a-b);
                    for a:=a downto b do writeln(a);
               end
else begin
                    writeln('kolvo chisel =', a-b);
                    for b:=b downto a do writeln(b);
               end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.12.2008, 15:03

Даны два целых числа A и B (A< B) Вывести все целые числа, расположенные между данными числами (включая сами эти числа)
Помогите пожалуйста! Полное задание:Даны два целых числа A и B (A&lt; B) Вывести все целые числа,...

Даны два целых числа: А и В. Вывести все целые числа, расположенные между числами А и В в порядке убывания
Даны два целых числа: А и В. Вывести все целые числа, расположенные между числами А и В в порядке...

Даны целые числа A и B (A < B). Вывести все целые числа от A до B включительно
Здравствуйте коллеги! Помогите написать код на JAVA: Даны целые числа A и B (A &lt; B). Вывести все...

Даны два целых числа M но N. Вывести все целые числа из промежутка [M,n]
Даны два целых числа M но N. Вывести все целые числа из промежутка , которые делящиеся 2, но не...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru