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.
1. 1) кулинарный рецепт
2. 5) дискретность
3. 2) ветвление
Вывод в другую сторону, как бы cout<<x+y+z;
Много:
1) 2+2+2+2
2)1+1+1+1+1+1+1+1
3) 2+1+2+1+2
4)1+1+2+2+1+1 и тд
Var n, s:string;
i:byte;
begin
read(s);
n:='';
for i:=1 to length(s) do
if s[i]<>',' then n:=n+s[i];
write(n);
end.