QBasic:
DIM a AS INTEGER
INPUT "Введите длину стороны квадрата",a
PRINT "Площадь квадрата со стороной";a;":";a*a
PRINT <span>"Периметр квадрата со стороной";a;":";4*a
END
C#:
int a = int.Parse(Console.ReadLine());
Console.WriteLine("Площадь </span><span>квадрата со стороной " + a + ": " + a*a);
</span>Console.WriteLine("<span>Периметр квадрата со стороной " + a + ": " + 4*a);</span>
1/8кбайт=1024/8байт=1024*8/8бит=1024бит
I=k*i, где I - инфор. обьем, k - количество символов, i - мощность одного символа.
N=2^i, где N - кол-во символов в алфавите
I=1024бит
k=1024 символов
i=I/k=1024/1024=1
N=2^1=2
Ответ: 2 символа
program bar;
uses Crt;
const
nn = 100;{ максимальный размер массива }
var
i, j, n: integer;
a: array[1..nn] of integer;
begin
randomize;
write('n = ');
readln(n);
for i := 1 to n do
begin
a[i] := random(199) - 99;
write(a[i], ' ')
end;
writeln;
j := 1;
for i := 2 to n do
if a[i] < a[j] then
j := i;
writeln('N min = ', j);
ReadKey
end.
СLS
INPUT a
IF a MOD 10 = 7 THEN PRINT "да, оканчивается" ELSE PRINT "нет, не оканчивается"
END
В 1-ое ведро налить 1 целый черпак и половину черпака, а во второе тоже самое