Название документа
строка меню
Строка формул
Рабочее поле
Бегунки
Строка состояния
Заголовки столбцов
Заголовка строк
Листы
Адрес ячейки
Общие элементы: Название документа, Строка меню, Строка состояния, Рабочее поле, бегунки
program ArrayPrintBack;
var
a: array[1..8] of integer;
i: integer;
begin
Randomize;
for i := 1 to 8 do
begin
a[i] := 5 + Random(49);
Write(a[i]:3)
end;
Writeln;
for i := 8 downto 1 do
Write(a[i]:3)
end.
I=16*100*80*2000+(80*5)мб
1)16*100=1600 бита
2)1600*80=128000 бит
3)128000*2000=256000000бит=30,5 Мб
I=80*5+30,5=430,5Мб
Ответ:Да, рукопись поместиться на флешке, обьем рукописи равен 430,5 Мб
a:=2*n;
if a mod 3 =0 then write (a, ' '); // кратно3
//Если кратно 5
if a mod 5=0 then write (a, ' '); // кратно 5
//если кратно x
if a mod x =0 then write (a, ' '); // кратно x
Var s:array[1..5] of string;
b:boolean;
i:integer;
begin;
b:=false;
for i:=1 to 5 do
begin;
readln(s[i]);
if s[i]='гимназия' then b:=true;
end;
if b=true then writeln('Да') else writeln('Нет');
end.