Program Pr;
Var
a : array [1..100, 1..100] of integer;
i, max, min, j, n: integer;
Begin
cls;
read(n);
min := 100000;
max := -100000;
for i := 1 to n do
for j := 1 to n do
begin
read(a[i,j]);
if (a[i,j] > max) then
max := a[i,j];
if (a[i,j] < min) then
min := a[i,j];
end;
writeln ('Сумма = ', min + max);
writeln ('Разность = ', max - min);
writeln ('Произведение = ', max * min);
<span>End.</span>
#include<stdio.h>
int main(){
int n, i, a = 1, b = 1;
scanf("%d",&n); /* 0 < n < 47 */
for(i = 2; i < n; i++) a = (b+=a) - a;
printf("%d",b);
return 0;
}
Var x,y: real;
begin
write('задайте x и y ');
readln(x,y);
if (x>0) and (y>0) then
if ((x>3) and (x<6) and (y<Sqrt(36-x*x))) or
((x<3) and ((y>3-x) and (y<Sqrt(36-x*x)))) or
((y>3) and (y<6) and (x<Sqrt(36-y*y))) or
((y<3) and (((3-y)<x) and (x<Sqrt(36-y*y)))) then
writeln('точка лежит в области')
else
writeln('точка не лежит в области')
else writeln('координаты должны быть положительными');
<span>end.
</span>
var a:integer;
begin
writeln('Введите год:');
read(a);
if (a>=2001) and (a<=2100) then begin
writeln('Относится');
end
else
writeln('Не относится');
end.
10 Кбайт = 10 × 1024 байт = 10240 байт.
При длине сообщения 20480 символов на 1 символ приходится 10240 / 20480 = 0.5 байта = 0.5 × 8 = 4 бита.
Следовательно мощность алфавита составит 2⁴ = 16 символов.
