|
|
For2
|
[ Скачать с сервера (0.3 Kb)
]
| 29.04.2012, 21:26 |
For2. Даны два целых числа A и B (A < B). Вывести в порядке возрастания все целые числа,
расположенные между A и B (включая сами числа A и B), а также количество n этих чисел.
Program For2;
uses crt;
var
a,b,n:integer;
begin
repeat
writeln('Введите число A и B (A < B)');
readln(a,b);
until a < b;
writeln('Числа между a и b ');
n := a;
repeat
if a = n then Writeln(a);
a := a + 1;
Writeln(a);
until a = b;
end.
|
|
Категория: For | Добавил: FiX_IT
|
| Просмотров: 1201 | Загрузок: 60
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
|
| QR-Clan TEAR |
 |
| Дата |
| Пятница, 11.07.2025, 11:17 |
| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
