uses crt;
var b,x:real;
begin
write('Введите длину ткани: ');
readln(x);
write('Введите стоимость квадратного метра ткани: ');
readln(b);
writeln('Стоимость ткани длиной ',x,' метров равна ',0.8*x*b);{кусок длиной 1.25 м и шириной 0.8 метра имеет площадь 1 квадратный метр и стоит ровно B рублей}
end.
Блин что за муть как сложно,думаю как решить )
Var s:string; k,i:integer;
begin
write('Введите слово: '); readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='е' then k:=k+1;
writeln('В слове ',s,' буква а встречается ',k,' раз');
end.
Как мы тебе его здесь построим? открывай эксель и пиши в ячейках формулы
program znanija;
var
a,c:integer;
begin
a:=Random(0,100);
while c <> a do
begin
readln(c);
if c>a then
writeln('Число больше чем загаданное');
if c<a then
writeln('Число меньше чем загаданное');
if c=a then
writeln('ПОБЕДА!');
end;
end.