Это делается с помощь цикла for либо цикла while либо цикла repeat
Цикл for:
var
i, n: integer;
begin
write ('Количество знаков: ');
readln (n);
for i := 1 to n do
write ('(*) ');
readln
end.
Цикл While
var
i, n: integer;
begin
write ('Количество знаков: ');
readln (n);
i := 1;
while i <= n do begin
write ('(*) ');
i := i + 1
end;
readln
end.
Цикл repeat
var
i, n: integer;
begin
write ('Количество знаков: ');
readln (n);
i := 1;
repeat
write ('(*) ');
i := i + 1
until i > n;
readln
end.
//g++ 5.4.0
#include <iostream>
#include <vector>
#include <algorithm>
using namespace std;
int main()
{
size_t N, num;
cin >> N >> num;
vector<int> a(N);
for (size_t i = 0; i < N; ++i)
cin >> a[i];
cout << count(a.begin(), a.end(), num);
}
5 Кбайт = 1024*5*8 =40960 бит
Узнаем - сколько отводится места под 1 пиксель:
<span>40 960/ (164 * 132) = приблизительно 2 бит. Теперь подставим в формулу: 2^2=4 цвета</span>
Program n1;
var a: array[1..10] of integer;
k,kol,i: integer;
begin
randomize;
write('k=');
readln(k);
kol:=0;
write('исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if (a[i]<0) and (a[i]<k) then kol:=kol+1;
end;
writeln;
writeln('кол-во эл меньше ',k,': ',kol);
end.
Расстоянием между строк называется интерлиньяж