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>
Купи полу игровой и для учёбы места на 3 ГБ
<span>program noname;</span>
<span>uses crt;</span>
<span>var</span>
<span>V,m,P:integer;</span>
<span>begin</span>
<span>clrscr;</span>
<span>P:=1400;</span>
<span>V:=25*2*39;</span>
<span>m:=V*P;</span>
<span>writeln(m);</span>
<span>end.</span>
Море-орел-лото-очаг-гном-мышь...
File:///C:/Users/1/Downloads/adc3d87a4746d34fe0cf6ba31880cdf6.ppt