Ответы
Ответ дал:
0
// PascalABC.NET
// Версия 3.3.5 сборка 1662 (29.04.2018)
begin
Println(Range(ReadReal('1->').Trunc + 1, ReadReal('2->').Trunc).Count,'целых чисел.');
end.
Пример:
1-> 1.142
2-> 10.7854
9 целых чисел.
Ответ дал:
0
PascalABC.NET 3.4
begin
// Если a и b целые, они также включаются в подсчет
var (a,b):=ReadReal2('Введите через пробел два числа:');
if a>b then Swap(a,b); // а - левая границв
Writeln('Целых чисел в интервале: ',Trunc(b)-Trunc(a)+1);
end.
begin
// Если a и b целые, они также включаются в подсчет
var (a,b):=ReadReal2('Введите через пробел два числа:');
if a>b then Swap(a,b); // а - левая границв
Writeln('Целых чисел в интервале: ',Trunc(b)-Trunc(a)+1);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад
8 лет назад