Program vj;
var x,a,b,c,h:integer;
begin
writeln('трёхзначное число');
readln(x);
a:=x div 100;
b:=x div 10 mod 10;
c:=x mod 10;
h:=a+b+c;
writeln(' Сумма цифр этого трёхзначного числа=',h)
end.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrReal(4);
Writeln('Max=',a.Max,', min',a.Min)
end.
<u>Пример:</u>
-45.4 18 0 4.17
Max=18, min-45.4
Буду исходить из того что a, b и h - это double и a < b.
Сначала напишем функцию, вычисляющую значение рассматриваемой функции:
double y(double x) =>
x < 0 ? -4 :
x < 1 ? (x * x + 3 * x + 4) :
2;
Теперь одним LINQ выражением выведем на экран значения x и y для заданного диапазона x:
Enumerable
.Range(0, int.MaxValue)
.Select(i => a + h * i)
.TakeWhile(n => n <= b + 0E-10)
.ToList()
.ForEach(x => Console.WriteLine($"x = {x:0.000} y = {y(x):0.00}"));
В первом тексте на один символ отводится 5 бит (2^5 = 32), во втором 6 бит (2^6 = 64). Поэтому информационный объем второго текста в 6/5 = 1,2 раза больше