Program morebrains;
const
n = 12; {Количество элементов массива}
var
F:array[1..n] of integer;
s:string;
i,sum:integer;
begin
s:='**** -=Alphaeus=- ****';
for i:=1 to 22 do begin write(s[i]); sleep(42) end;
{заполняем массив}
writeln;
for i:=1 to n do F[i]:=i*i-5*i-14;
{Ищем сумму положительных}
sum:=0;
for i:=1 to n do
if F[i]>0 then sum:=sum+F[i];
{Выводим сумму}
writeln;
writeln('Сумма положительных элементов равна ',sum);
end.
Program ugadai;
uses crt;
var
i,z,o:integer;
begin
randomize;
writeln('Введите число от 0 до 99:');
z:=random(100);
for i:= 1 to 10 do
begin
read(o);
if (o = z) then
begin
writeln('Вы угадали!!!');
break;
end else begin
if (i = 10) then begin
writeln('Жалко,но число не отгаданно.Загаданное число было ', z);
end else begin
writeln('Упс! У вас еще ',10 - i,' попопыток. Введите число:');
end;
end;
end;
<span>end.</span>
<span>988 г. - 5) Принятие христианства на Руси </span>
<span>1147 г. - 6) Первое упоминание в летописи о Москве </span>
<span>1492 г. - 9) Открытие Колумбом Америки </span>
<span>1895 г. - 3) Открытие радиосвязи </span>
<span>1941 г. - 7) Начало Великой Отечественной войны </span>
<span>1946 г. - 1) Создание первого компьютера </span>
<span>1951 г. - 2) Создание первого отечественного компьютера </span>
<span>1957 г. - 8) Запуск первого искусственного спутника Земли </span>
<span>1961 г. - 4) Первый полет человека в Космос</span>
24576 бит = 3072 байт = 3 КиБ
16384 бит = 2048 байт = 2 КиБ
12288 бит = 1536 байт = 1,5 КиБ
бит = 8192 бит = 1024 байта = 1 КиБ
16384 бит = 2048 байт (
байт) = 2 КиБ
131072 бит = 16384 байт = 16 КиБ