20*32*4=2560 //Количество символов в статье
2560*16=40960 бит
40960/8=5120 //Переводим в байты
5120/1024=5 //Переводим в Кб
Ответ:5 килобайт
1.
var
a,k,i,c: integer;
begin
c:=0;
write('Введите количество чисел в последовательности: ');
readln(k);
for i := 1 to k do
begin
write('Введите число: ');
readln(a);
if (a mod 2 = 1) and (a mod 10 <> 1) then c:=c+1
end;
if c>0 then writeln('YES')
else writeln('NO')
end.
2.
var
a,k,i,c: integer;
begin
c:=0;
write('Введите количество чисел в последовательности: ');
readln(k);
for i := 1 to k do
begin
write('Введите число: ');
readln(a);
if (a mod 2 = 1) and (a mod 3 = 0) then c:=c+1
end;
writeln(c)
end.
//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)
begin
var a:=ReadArrInteger('Введите элементы массива->',ReadInteger('Введите размер массива->'));
Println('Количество минимальных->',a.Where(t->t=a.min).Count);
end.
Пример:
Введите размер массива-> 10
Введите элементы массива-> 1 2 3 4 5 6 7 1 1 1
Количество минимальных-> 4
1) Если подразумевается a>=0, то верно.
2) Неверно, нужны скобки: (x > 0) or (y < 0)
3) Если подразумевается c <> 10, то верно.
4) Верно.
5) Неверно.
6) Неверно.
7) Неверно.
8) Неверно.
9) Если в 9 x>=y, то верно (если есть 9).
10) Верно.
11) Неверно, можно исправить так: (x = y) and (y = z).
Ответ: 1, 3, 4, 10.