PROGRAM LGJ;
var
m,n:real;
begin
writeln('введите длинну ткани');
readln(m);
writeln('введите отрезаюмую длинну');
readln(n);
if m<n then
writeln('материала не хватает!');
<span>end.</span>
Ответ:
var
Dat: array [1..10] of Integer = (70, 80, 90, 100, 80, 40, 40, 70, 80, 90);
i, m, k: Integer;
begin
k := 1;
m := dat[k];
WriteLn (' k, m, i, Dat[k]<m');
for i := 2 to 10 do begin
if Dat [i] < m then begin
m := Dat [i];
k := i;
end;
WriteLn (k:3, m:3, i:4, ' ', Dat[i]<m);
end;
writeln ('m = ', m);
writeln ('k = ', k);
ReadLn;
end.
Объяснение:
трассировочная таблица на скриншоте
Пароварка,теплоход, паровоз .
// Код полностью
var
a, b: real;
begin
a := 5;
b := -3;
a := b + a * 3;
b := 360 / a;
b := a + b;
writeln(a);
writeln(b);
end.
// Вывод
12
42