4МБ-4096КБ
4096/100=40,96(1сек)
40,96*75=3072КБ
(а+с)×(1×(в+с)) ну вот вроде всё
1. 9F
2. 31
3. 221
4. 1011
+ 101
_____
10000
5. 1011
* 111
______
1011
+1011
+1011
______
1001101
6. 69
Заштрихована область в форме песочных часов (см. картинку во вложении? каждая клеточка - это элемент массива)
Program sandglass;
uses crt;
const n=19;
var mas: array[1..n,1..n] of integer;
i,j,a,yes: integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
mas[i,j]:=random(101)-50;
for i:=1 to n do
begin
for j:=1 to n do
write (mas[i,j]:4);
writeln;
end;
yes:=0;
write ('Please input A=');
read(a);
writeln;
for i:=1 to n do
for j:=1 to n do
begin
if (i<=j) and (i+j<=n+1) and (mas[i,j]=a) or (i>=j) and (i+j>=n+1) and (mas[i,j]=a) then
begin
yes:=1;
end;
end;
if yes<>0 then
write ('Yes!')
else
write ('No!');
end.