PROGRAM LGJ;
var
m,n:real;
begin
writeln('введите длинну ткани');
readln(m);
writeln('введите отрезаюмую длинну');
readln(n);
if m<n then
writeln('материала не хватает!');
<span>end.</span>
Если хочешь, чтобы проги выдавали только число, убери из них строку <span>Write(N,'! + ');</span>
Var S, P, d, a : real;
begin
write('Введите значение а: ');
readln(a);
S := a * a;
P := 4 * a;
d := a * sqrt(2);
writeln('S = ', S, ', P = ', P, ', d = ', d:1:5); // последнее написано для вывода
// 5 знаков после запятой
end.
А1
умножает s*a
A2
подсчитывает введенные отрицательные с клавиатура числа
А3
делает введеное число склавиатуры положительным и выводит остатки отделения на десять
А4
данная программа выведет
1*0=0
2*0=0
3*0=0
....
9*0=0
10*0=0
А5
если k меньше m, то к k прибавляется по одному и в переменной s накапливается сумма, если k>=m то выводится ноль
А6
выводиться последовательность кубов от x до y