Var a:array[1..200] of real;
n,k1,k2,k3,i:integer;
begin
randomize;
writeln ('Введи размер массива');
readln (n);
for i:=1 to n do
begin
a[i]:=21*random-10;
if a[i]>0 then inc(k1)
else if a[i]<0 then inc(k2)
else inc(k3);
write (a[i]:4);
end;
writeln ('Положительных=',k1);
writeln ('отлицательных=',k2);
writeln ('нулевых=',k3);
end.
Математические задачи, которые способствуют развитию логики и сообразительности, тренирует мозг.
При составлении ребусов числового типа пользуются следующими правилами. Все использующиеся цифры заменяют буквами. Числовые ребусы могут быть составлены из нескольких рядов символов, а между ними ставится определенное количество математических знаков, которые являются указателями для того, какие действия необходимо произвести по вертикали, а какие по горизонтали. Числовые ребусы являются очень популярными не только в школах на обычных уроках, но и на математических олимпиадах. решить числовые ребусы можно с помощью компьютерных программ, однако ни с чем несравнимое удовольствие может получить человек, который самостоятельно ломает голову над разгадкой и в конце концов ее находит.
Решение:
1) Нам известно количество полей (количество равновероятных событий) – 8*8= 64
2) По формуле 2^i= N найдем количество бит для кодирования одного поля-2^i= 64 => i = 6 бит
var x: integer;
begin
readln(x);
if (x=0) or (x<0) then
write(0)
else
if (x>1) then
write(x*x)
else
write(x);
end.
Вроде как так, с точками с запятой, надеюсь, не ошиблась.
При х=14 значение 'у' будет 196.
512байтов
составляет 1/2 килобайта