Для того, чтоб не запутаться : х-длина куска ткани; у-его ширина; 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
Const n=10; var a,g: array [1..100] of integer; var b : array [1..100] of string; var k: integer;
begin
writeln ('ответы вводятся строкой без пробелов. Пример: 12345'); b[1]:='1. Общество в широком смысле слова – это '+NewLine+ ' 1) территория обитания людей'+NewLine+ ' 2) история человечества'+NewLine+ ' 3) совокупность форм объединения людей'+NewLine+ ' 4) производительные силы';
b[2]:= '2. Обществознание – это '+NewLine+ ' 1) наука'+NewLine+ ' 2) учебная дисциплина'+NewLine+ ' 3) комплекс наук об обществе и человеке'+NewLine+ ' 4) сфера естественнонаучного знания'+NewLine+ ' 5) сфера гуманитарного знания';
b[3]:= '3. Человек отличается от животного наличием'+NewLine+ ' 1) языка'+NewLine+ ' 2) разума'+NewLine+ ' 3) сознанием'+NewLine+ ' 4) трудовой деятельности'+NewLine+ ' 5) мышления';
b[4]:= '4. Личность возможна (Определить неверный ответ)'+NewLine+ ' 1) без морали'+NewLine+ ' 2) без гражданственности'+NewLine+ ' 3) без ответственности'+NewLine+ ' 4) без диплома о высшем образовании';
b[5]:= '5. Человек и общество'+NewLine+ ' 1) человек первичен по отношению к обществу'+NewLine+ ' 2) общество первично по отношению к человеку'+NewLine+ ' 3) человек и общество взаимно обусловлены'+NewLine+ ' 4) общество и человек развиваются независимо друг от друга';
b[6]:= '6. Мораль в религии основывается'+NewLine+ ' 1) на разуме'+NewLine+ ' 2) на вере'+NewLine+ ' 3) на долге'+NewLine+ ' 4) на свободе';
b[7]:= '7. Целью развитой религии является достижение'+NewLine+ ' 1) материального благополучия'+NewLine+ ' 2) социального положения и значимости'+NewLine+ души'+NewLine+ ' 4) познание мира'+NewLine+ ' 5) управление силами природы';
х-длина куска ткани;
у-его ширина;
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