Деятельность обеспечивающая сбор, обработку, хранение, поиск и распространение информации, а так же формирование информации.
<span>это 5 континентов планеты</span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Сколько чисел обработать?');
var s:=1;
loop n do begin
var k:=ReadInteger('Введите число');
if k>0 then s*=k
end;
Writeln('Произведение положительных чисел из ',n,' составляет ',s)
end.
<u>Пример</u>
Сколько чисел обработать? 5
Введите число 7
Введите число -4
Введите число 0
Введите число 9
Введите число -2
Произведение положительных чисел из 5 составляет 63
Системный блок клавиатура и монитор
При использовании 256-цветной палитры для хранения одной точки требуется log(2)256 = 8 бит = 1 байт.
Объем рисунка = 300*350*1 байт = 105000 байт