Даны 2 вещественных числа. сколько на отрезке между ними целых чисел паскаль
293
463
Ответы на вопрос:
var
a,b: real;
i,min,max,count: integer;
begin
readln(a,b);
if a< b then
begin
min: =trunc(a)+1;
max: =trunc(b)
end
else
begin
min: =trunc(b)+1;
max: =trunc(a)
end;
for i: =min to max do
count: =count+1;
write(count)
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
SHIRINA1112.11.2021 07:59
-
4новичок428.04.2021 22:04
-
pustayai30.06.2021 04:09
-
Fjkskdnxk05.09.2021 13:27
-
slava20syper21.06.2021 04:27
-
arsjaja04.07.2021 20:01
-
parchiev1403.11.2020 07:36
-
жироввадим17.09.2022 07:21
-
Faza133712.03.2022 12:28
-
KoTuK40512.08.2021 22:55
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.