Var a,b,c:real;
begin
writeln('Введите a,b,c');
readln(a,b,c);
if (a<=3) and (a>=-1) then writeln(a, ' принадлежит промежутку [-1,3]');
if (b<=3) and (b>=-1) then writeln(b, ' принадлежит промежутку [-1,3]');
if (c<=3) and (c>=-1) then writeln(c, ' принадлежит промежутку [-1,3]');
end.
Var
a, b, c, v: real;
begin
writeln('Введите длины сторон a,b,c');
readln(a, b, c);
writeln('Объем параллелепипеда: ', a * b * c)
end.
Первая программа находит максимальное значение (об этом говорит код
<span>if Dat[k] > m then
m := Dat[k]) Следовательно в m будет храниться 8. Выведет также 8.
Во второй программе из 50 9 раз(при к равных 0,1,2,3,4,5,6,7,8) вычитается число 4. 50-4*9=50-36=14.
</span>Во третьей программе из 50 9 раз(при к равных 1,2,3,4,5,6,7,8,9) вычитается число 3. 50-3*9=50-27=23.