Хмм... Ну...
0 = треуг треуг треуг
1 = треуг треуг квадрат
2 = треуг квадрат треуг
3 = треуг квадрат квадрат
4 = квадрат треуг треуг
5 = квадрат треуг квадрат
6 = квадрат квадрат квадрат
7 = треуг треуг круг
8 = треуг круг треуг
9 = треуг круг круг
10 = круг треуг треуг
11 = круг треуг круг
12 = круг круг круг
13 = квадрат квадрат круг
14 = квадрат круг круг
15 = круг квадрат круг
Фух....
program task32595137;
const maks=5; {Сюда вставляем размерность массива}
var
masiv:array[1..maks] of real; {сам массив}
i:integer;
begin
randomize; {встряхиваем генератор случайных чисел}
for i:=1 to maks do begin
masiv[i]:=(random(300)-10)/10; {создаем нам нужные числа, по хорошему надо вынести в отдельную процедуру}
write('i',i,'=',masiv[i],' '); {выводим до сравнения с условием про округление}
if abs(masiv[i])<1 then masiv[i]:=round(masiv[i]); {делаем наше условие}
write('i',i,'=',masiv[i],' '); {печатаем после применения нашего условия про округление.}
end; {for i}
end.
Ответ:
1) 1,5 Кбайт * 1024 = 1536 байт
1536 байт * 8 = 12288 бит
2) 4 Кбайт * 1024 = 4096 байт
4096 байт * 8 = 32768 бит
Объяснение:
1 Кбайт = 1024 байт
1 байт = 8 бит
For i:=1 to n do begin
if not(a[i] mod 3=0) or (a[i]=0) then
a[i]:=1
else
k:=a[i];
end;
for i:=1 to n do
if (a[i]<k) and (a[i]<>1) then
k:=a[i];
j:=0;
for i:=1 to n do
if a[i]=k then
j:=j+1;
end;
writeln(j);
end.