Program up1;
var a,w,e,q,r:integer;
begin
write('введите трехзначное число');
read(a);
q:=(a mod 10)*100;
w:=((a mod 10) mod 10)*10;
e:=a div 100;
r:=q+w+e;
write(r);
end.
Сделай цикл while пока денег не будет меньше цены товара
Program s;
uses crt;
var
V,R:real;
begin
writeln('Введите радиус: ');
read(R);
V:=(4/3)*pi*(sqr(R)*R);
writeln('Объем равен: ',V:2:2);
end.
<em>program s;</em>
<em>uses crt;</em>
<em>var</em>
<em>x,y,z,x1,y1,z1,r:real;</em>
<em>begin</em>
<em>writeln('Введите цену сахара: ');</em>
<em>read(x);</em>
<em>writeln('Количество купленного сахара (кг): ');</em>
<em>read(x1);</em>
<em>writeln('Введите цену муки: ');</em>
<em>read(y);</em>
<em>writeln('Количество купленной муки: ');</em>
<em>read(y1);</em>
<em>writeln('Введиет цену риса: ');</em>
<em>read(z);</em>
<em>writeln('Количество купленного риса: ');</em>
<em>read(z1);</em>
<em>r:=(x*x1)+(y*y1)+(z*z1);</em>
<em>writeln('Стоимость покупки ',r);</em>
<em>end.</em>