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.
A, b, c, d, e = float(input()), float(input()), float(input()), float(input()), float(input())
average = (a + b + c + d + e) / 5
print(average)
Ссылка на код: https://pastebin.com/g94fmrMW
1.сахар
2.Капучино
3.Вода
4.Молоко(сливки по желанию)
Program abc;
var a, b, c, max: integer;
begin
read (a, b, c);
if a>b then
a:=max
else
b:=max;
if c>max then
c:=max;
writeln ('Максимальное число__', max);
end.
Второй в один вопрос еще))0).