1. Информатика
  2. Даны два целых числа A и B (при

Даны два целых числа A и B (при этом A≤B). Выведите все числа от A до B включительно. Язык Pasckal ABC

PatiFon4ik PatiFon4ik    1   19.05.2020 15:14    8

Ответы
John009 John009  15.10.2020 00:52

var  

a,b,i:integer;

begin

 readln(a,b);

 if a<=b then

 for i:=a to b do

   write(i:4)

     else

       for i:=b to a do

         write(i:4)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Zay4565 Zay4565  14.05.2020 10:51
Информация – это… a) Сообщение, содержащее элемент новизны для приемника (потребителя); b) Сообщение, не имеющее никаких новых данных для приемника (потребителя);...
Semen200000000 Semen200000000  19.07.2019 09:00
Исходное данное-целое трехзначное число х. выполните для х-248 и х-789 следующий алгоритм: а: =х div 100 b: =x mod 100 div 10 c: =x mod 10 s: =a+b+c...
MaLiKaKhOn MaLiKaKhOn  19.07.2019 09:00
Какой минимальный объём памяти (в кбайт) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размером 256×128 пикселей при условии, что в...
ЗайчонокЛайм ЗайчонокЛайм  07.09.2019 01:40
Nшкольников делят k яблок поровну, неделяющийся остаток остается в корзинке. сколько яблок достанется каждому школьнику? входные данные программа получает на вход...
Xmitejr Xmitejr  07.09.2019 01:40
На остановке останавливаются автобусы №5, №15 и №10, маршрутное такси №40, троллейбусы №2 и №7 и несколько трамваев. появление транспорта каждого маршрута равновероятно....
Ksyusha20 Ksyusha20  20.06.2019 08:20
10. проверить является ли заданная строка шестизначным числом, записанным в десятичной системе счисления без нулей в старших разрядах. – пример правильных выражений:...
SuperSanii SuperSanii  21.01.2021 06:38
Построение графики с процедуры Line, SetBrushColor, FloodFill, SetWindowtitle. Написать программу, которая рисует на экране петуха. Работа с цветом. При закрасить...
feho feho  21.01.2021 06:39
Program mas_1; var n, i: integer; a: array[1..10] of integer; begin randomize; for i:=1 to 10 do a[i]:=random(100); for i:=1 to 10 do write (a[i], ); i:=0; repeat...
Эленедмонд Эленедмонд  06.08.2019 15:10
Вычислите массовые доли (в %) свинца в оксиде свинца (iv) pbo2...
noeva2005 noeva2005  06.08.2019 15:10
Составьте список своих потребностей...

Популярные вопросы