1. Информатика
  2. Даны 2 вещественных числа.

Даны 2 вещественных числа. сколько на отрезке между ними целых чисел паскаль

olegxkl olegxkl    1   27.09.2019 00:50    1

Ответы
PrincessaMumia PrincessaMumia  08.10.2020 21:30

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
lfrybkrrf lfrybkrrf  20.03.2019 10:10
Заполните таблицу,в каждой строке одно и то же целое число должно быть записанно в различных систкмах счислени двоичная восьмеричная десятичная шестнадцатеричная 101010...
Богатство87 Богатство87  20.03.2019 10:10
Определите какая формула получится при копировании из ячейки b2: =c$2-a5+$g4 в ячейку f1....
55vitalik 55vitalik  03.11.2021 00:03
, есть 20 мин ЗАДАНИЕ НА ФОТО можно сразу ответ...
алина11001 алина11001  02.11.2021 23:52
Подскажите где ошибка? Вот программа: #include using namespace std; int main(); { int a cout Enter the number: ; if(a%10==0 || a%10==5) cin YES ; else cin NO ; return...
imverypanda228 imverypanda228  02.11.2021 23:52
НЕ ПИШИТЕ ПРОСТО ТАК Вставьте пропущенные знаки и числа, чтобы for вывел ровно n звездочек (переменная n определена ранее) Нужно использовать не все элементы n = 1...
алинкажемчуг алинкажемчуг  02.11.2021 23:49
Выберите из списка слово или словосочетание, наиболее подходящее для семантического ядра сайта компании. Наиболее подходящий запрос:...
GGWPmen GGWPmen  27.07.2019 05:50
В-1 напишите фрагмент программы, которая преобразует массив из десяти элементов следующим образом: все отрицательные элементы удваивает, а остальные заменяет 0...
xDVadiKSlivE xDVadiKSlivE  15.04.2021 16:20
іть будь-ласка з К. Р?! Інформаьика 6 клас...
ssqllxx ssqllxx  15.04.2021 16:20
Якими членами речення виступають звертання та вставні слова? 1 додатками 2 підметами 3 обставинами 4 членами речення не виступають...
troft troft  28.02.2021 14:01
Больше нуля Напишите программукоторая определяетбольше, меньше или равноПИ Введенное ЧИСЛО НУЛЮЕсли Число больше нуля,программа должнаВыводить сообщение Greater , если...

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