Выведите на экран все положительные числа которые будут меньше числа введённого с клавиатуры (используя оператор while) pascal abc !
РУСЛАН113228
1
04.10.2019 22:10
4
Другие вопросы по теме Информатика
Karelina1988
06.12.2020 16:15
Xoroshiyi
06.12.2020 16:16
kolikova05
06.12.2020 16:16
yan7772
26.07.2019 11:40
kblaginin6gmailm
26.07.2019 11:40
ITyanI
01.10.2019 06:30
Moew
29.03.2019 22:50
Костя45632
29.03.2019 22:08
Популярные вопросы
- Сочинение на тему история одной собаки из рассказа *кусака* ---план:...
3 - Р. М. Повідомлення про мову що вимагає зіставлення і узагальнення...
1 - Из какого материала выполняют статор асинхронного электродвигателя...
1 - 4-4-дихлоргепт-2-ин 3-этил-2-метипгекс-1-ен-4-ин...
1 - Дана функция y=−t+5. При каких значениях t значение функции равно...
3 - Найди точку пересечения прямых y=2x+13 и y=-8x+13, не выполняя...
1 - Определить вид треугольника, если угол А =34⁰, В=47⁰...
3 - Матные(желательно)рифмы имени ева...
1 - Отношения собственности включают в себя...
1 - Найти угол треугольника ,если их меры относятся как2;3;4...
1
Var
a,b:integer;
Begin
Readln(a);
Readln(b);
While a <> 0 do
Begin
If a < b then
Writeln('a=',a);
Readln(a);
End;
End.