Для того, чтоб не запутаться : х-длина куска ткани; у-его ширина; 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
Program rok_ork_kok;var x,y:integer; s:string; c1,c2,c3:char; begin writeln('начать выполнение? Жмите ENTER!'); readln; repeat randomize; x:=random(4); if x = 1 then c1:='р'; if x = 2 then c1:='о'; if x = 3 then c1:='к'; x:=random(4); if x = 1 then c2:='р'; if x = 2 then c2:='о'; if x = 3 then c2:='к'; x:=random(4); if x = 1 then c3:='р'; if x = 2 then c3:='о'; if x = 3 then c3:='к'; s:=c1+c2+c3; writeln(s); until (s='кок') or (s='рок') or (s='орк') ; writeln('получили слово '+s); end.
х-длина куска ткани;
у-его ширина;
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