Uses crt;
var a,b,c,i,i_:integer;
begin
write('Введите 1 число: ');
readln(a);
write('Введите 2 число: ');
readln(b);
write('Введите 3 число: ');
readln(c);
i:=a+b+c;
i_:=a*b*c;
writeln('Сумма: ',i);
writeln('Произведение: ',i_);
<span>end.</span>
Var a,b:array[1..25] of integer;
i,min,max:integer;
begin
max:=1;
min:=1;
for i:=1 to 25 do begin
read(a[i]);
read(b[i]);
if a[i]>a[max] then max:=i;
if a[i]<a[min] then min:=i;
end;
writeln('Лучший - ',a[max],' длина - ',b[max]);
writeln('Худший - ',a[min],' длина - ',b[min]);
<span>end.</span>
Sub aaa()
r = CDbl(InputBox("Введите радиус"))
Pi = 4 * Atn(1)
s = Pi * r ^ 2
c = 2 * Pi * r
MsgBox "S=" + CStr(s) + ", C=" + CStr(c), vbOKOnly
End Sub
Количество символов в статье = 64*40*56
Объем статьи = 64*40*56*16 бит = 64*40*56*16/8 байт = 64*40*56*2 байт =
64*40*56*2/1024 Кбайт = 5*56 Кбайт = 280 Кбайт
Заметим, что 6 в 7-ичной системе счисления - максимальная цифра, поэтому 666 = 1000 - 1.
666 + 543 = 1000 + 543 - 1 = 1542