program fantscrin;
var x,f:real;
begin
write('X = '); readln(x);
if (x<-2) then f:=-2;
if ((x<2)and(x>-2)) then f:=x*x*x;
if (x>2) then f:=x+2;
writeln(f);
end.
Var
a, b, c: real;
begin
writeln('Введите числа a, b, c');
readln(a, b, c);
if (sqr(a) = sqr(b) + sqr(c)) or (sqr(b) = sqr(a) + sqr(c)) or (sqr(c) = sqr(a) + sqr(b)) then
writeln('Данные числа являются пифагоровым тройками')
else
writeln('Данные числа не являются пифагоровым тройками');
end.
20 * 1024 * 8 = 163840 (бит) - первое сообщение
163840/128 = 1280 раз
Readln(a);
writeln(round(a * 4),' ',round(sqr(a)));
Для того, чтоб не запутаться :
х-длина куска ткани;
у-его ширина;
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