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>
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
for var i:=0 to a.IndexMax-1 do
if a[i]<0 then a[i]:=0;
a.Println
end.
<u><em>Тестовое решение:</em></u>
n= 15
-35 4 87 60 -93 -23 -95 -24 -19 -52 10 91 -53 -67 -1
0 4 87 60 0 0 0 0 0 0 10 91 -53 -67 -1
1) 0,625Кбайт
2) 112,5Кбайт
3) 12890,625Кбайт
4) прибл.48 сек
5) 640 * 480 *5 = 1536000(бит)/8/1024=187,5Кбайт
Program arr;
var
a: array[1..10] of integer;
i: integer;
begin
randomize;
for i := 1 to 10 do
a[i] := Random(10);
for i := 1 to 10 step 2 do
a[i] := a[i] * 3;
for i := 2 to 10 step 2 do
a[i] := 0;
end.
1) int main(){
cin >> n;
i:=0;
while(i < n){
i++;
cout >> i*i<<"\n";
}
return 0;
}
2)
cin >> n;
s = 0;
while(n > 0){
if(n % 10 == 1) s++;
n/=10;
}
cout << s;
return 0;
}