a:array[1..10,1..15] of integer;
i,j,k,x:integer;
begin
read(x);
k:=0;
for j:=1 to 15 do
for i:=1 to 10 do
a[i,j]:=random(101);
for j:=1 to 15 do
for i:=1 to 10 do
if a[i,j]=x then k:=k+1;
write(k);
end.
Uses crt;
function f(a,b:real):real;
begin
f:=sqrt(a*a+b*b)
end;
var ab,ac,dc,bd,g,p:real;
begin
clrscr;
writeln('Введите длины строн');
write('ab=');readln(ab);
write('ac=');readln(ac);
write('dc=');readln(dc);
g:=f(ab,ac);
bd:=f(g,dc);
p:=ab+ac+dc+bd;
write('Периметр=',p:0:2);
readln
end.
Var a : integer;
begin
a:=random(98)+2 ;
write(a)
end.
505кб=4040000бит
900кб=7200000бит
если не ошибаюсь так
удачи :)
1280*1024=1 310 720 пикселей
2^2=4 цвета
2 бит для каждого пикселя
1 310 720 * 2 = 2 621 440 бит
2 621 440 / 8 = 327 680 байт
327 680 / 1024 = 320 Кбайт
Ответь: 320 килобайт