Для того, чтоб не запутаться : х-длина куска ткани; у-его ширина; S-площадь ткани, которая получится при вводе длины и ширины ткани; с-цена , которую вы должны получить; Не пугайтесь, если при цене будет вылетать число*В, т.к. изначально В-данная цена за 1м^2 Приступаем 1) блок-схема (фото) 2) программа Program (название); uses crt; var B,x,y,S,c:real; begin writeln('введите длину ткани='); readln(x); writeln('введите ширину ткани='); readln(y); S:=x*y; c:=S*B; writeln('цена за кусок ткани=',c); end. 3) мат S=x*y и c(цена)=в(данная цена за 1 м^2)*S
//Pascal //Массивы размеров 10 элементов заполняются случайными числами от -10 до 10
//1 var A: array[1..10] of real; i: byte; begin randomize; writeln('Исходный массив.'); for i := 1 to 10 do begin A[i] := random(21)-10; write(A[i]:5); end; writeln; writeln('Измененный массив.'); for i := 1 to 10 do begin if A[i] > 0 then A[i] := A[i] / 2 else A[i] := i; write(A[i]:5); end; writeln; end.
//2 var A: array[1..10] of integer; i: byte; mult: longint; begin mult := 1; randomize; writeln('Исходный массив.'); for i := 1 to 10 do begin A[i] := random(21)-10; mult := mult * A[i]; write(A[i]:5); end; writeln; writeln('Произведение элементов массива = ', mult); end.