program ms;
uses crt;
var a:array [1..10] of integer;
l,k,s,i:longint;
begin
clrscr;
writeln('Введите 10 элементов массива');
for i:=1 to 10 do
begin
readln(a[i]);
if a[i]<0 then l:=l+a[i];
if a[i]>0 then k:=k+a[i];
end;
s:=l*k;
writeln(s);
readkey;
end.
F= ¬(A&B + ¬C) или F = НЕ(A И B ИЛИ НЕ C)
Масло-Масол
Соринка-росинка
нач
вещ а,н,клетки
а:=0.8
нц
вывод "Введите время Н "
ввод н
клетки:=а*н
ждать (862)
вывод "Клеток ",клетки,нс
ждать (2348)
кц
кон
Общее количество символов в рукописи:
2000*80*100=16 000 000 символов
Кол-во байт:
2 байта = 16 бит
16 000 000 * 2 = 32 000 000 байта
32 000 000 : 1000 : 1000 = 32 Мб
Иллюстрации:
80*5 = 400Мб
Объем рукописи: 32+400=432Мбайта
Флэш-карта 512 Мб < 432 Мб, поместится