Я думаю что В. Ведя себя как все, ты вливаешься в круг общения.
Если в своем кругу ты ведешь себя особо вежливо, то не думай что получишь взаимную вежливость.
- трансляторы;
- среда разработки программ;
- библиотеки;
- отладчики;
- редакторы связи.
Var a, i: integer;
begin
read(a);
while(a <> 0) do
begin
for i := 1 to a mod 10 do write('*');
writeln();
a := a div 10;
end;
<span>end.</span>
<span>М: = 2*5 + 12/ (2 + 4) - 3*2
</span><span>М: = 10 + 12/ 6 - 6
</span>М: = 10 + 2 - 6
М: = 12 - 6
М: = 6
Вычисление производим по формуле
function Sp(x,y:real):real;
begin
Sp:=x*y
end;
var
a,b,c,S:real;
begin
Write('Введите размеры сторон a,b,c: ');
Read(a,b,c);
S:=2*(Sp(a,b)+Sp(a,c)+Sp(b,c));
Writeln('Площадь поверхности равна ',S)
end.
<em><u>Тестовое решение:</u></em>Введите размеры сторон a,b,c: 2.5 3.15 4
Площадь поверхности равна 60.95