Program n_1;
var i, k, n:integer; a: array [1..40] of integer;
begin
readln(n);
randomize;
for i:=1 to 40 do begin
a[i]:=random(100);
if a[i]>=n then k:=k+1;
end;
writeln(k);
end.
_____
Поставил диапазон генерации чисел от 0 до 99 т.к. в условии о нем не было сказано ничего.
Ось, відкрий та подивись картинку(сам робив)))))
Program e;
var d : real; x,y,z : integer; all : integer;result: real;beginWriteln('ко-лво страниц');Readln(x);Writeln('ко-лво строк');Readln(y);Writeln('ко-лво символов');ReadLn(z);
d:= 1.44 * 1024;
all := x*y*z;
result := d/all;writeln('Поместится книг:',trunc(result)); end.
Алфавит системы счисления будет иметь вид
0 1 2 3 4 5 6 7 8 9 A B C D E
следующие 30 чисел
10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D 1E 20 21 22 23 24 25 26 27 28 29 2A 2B 2C 2D 2E
Держи. Код на С++,могу переделать под Паскаль.