Скорей всего наблюдаем, если нам интересно то за чем мы наблюдаем, то эти моменты остаются у нас в голове.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";
ПОСТ
h = 0.1;
a = 0;
b = 1;
ПЕР
x: ВЕЩ;
УКАЗ
x := a;
ПОВТОРЯТЬ
Вывод.ЧВещ("\%.8f^", x * x, 0, 0, 0);
x := x + h
ДО x > b
КОН Задание.
<em>1 Килобайт, как известно, содержит 8192 бита.</em>
Язык программирования какой?
var
a: array[1..9999] of real;
i, n, b: integer;
begin
randomize;
Write('Введите число эементов массива:'); readln(n);
b:=0;
for i:=1 to n do
begin
a[i]:=-5+random(11);
writeln('a[', i, ']=', a[i]);
if a[i]=5 then b:=b+1;
end;
writeln('Кол-во элементов, равных 5: ', b);
end.