Писал уже:
var input, num, nulls, positive, negative, i: integer;
begin
write('Введите кол-во чисел: ');
readln(input);
for i := 1 to input do begin
write('Введите число номером ', i, ': ');
readln(num); if num = 0 then inc(nulls, 1);
//if num < 0 then inc(negative, 1);
//if num > 0 then inc(positive, 1);
end;
writeln('Кол-во нулей: ', nulls);
//writeln('Кол-во положительных чисел: ', positive)
//writeln('Кол-во отрицательных чисел: ', negative);
<span>end.</span>
Ответ:
var
a: array [1..3] of Integer;
i, imin: Integer;
begin
for i := Low (a) to High (a) do begin
Write (i, ' число: ');
ReadLn (a [i]);
end;
imin := 0;
for i := Low (a) to High (a) do begin
if a [i] mod 2 = 0 then
if imin = 0 then
imin := i
else if a [i] < a [imin] then
imin := i;
end;
if imin <> 0 then
WriteLn ('Наименьшее четное = ', a [imin])
else
WriteLn ('Четных чисел нет.');
ReadLn;
end.
Ответ:
1
Объяснение:
Высказывание А истинно, поэтому его значение - истина. Которую, в частности, обозначают константой 1.
Ответ:
ок не буду))))))))))))))))))
Сначала переводим 20(Кб) в биты для этого 20*1024*8=163840(бит) потом определим количество символов 163840/16=10240 найдем количество строк 10240/64=160 и наконец находим число страниц 160/40=4. Ответ: 4 страницы.