Http://spiders.ru/widow.mp3
<span>БГВДАЖЕ</span>
Uses crt;var R:real;beginwriteln('Введите радиус круга в основании: ');readln(R);writeln('Площадь основания цилиндра= ',2*pi*sqr(R));end.
BEGIN
Ввести число N, проверить, что оно 4-значное.
read(N);
if (N >= 1000) and (N <= 9999) then
begin
Найти 2 цифру
A2 = Int(N / 100) Mod 10;
Найти 4 цифру
A4 = N Mod 10;
Сравнить их
if A2 > A4 then write "Вторая цифра больше, чем четвертая";
if A2 < A4 then write "Вторая цифра меньше, чем четвертая";
if A2 = A4 then write "Вторая цифра равна четвертой";
else
write "Число должно быть 4-значным!";
end;
Конец
END.
1)1 байт = 8 бит
12288/8 = 1536 байт
2)К=2048, I-1/512 Mб, i-?
решение: I=K*i i=I/K
I=1/512*1024*1024*8=16384 бит
i=I/K=16384/2048=8 бит
если i=8 бит, то мощность алфавита равна N=256 символов (т.к. 2 в 8 степени равно 256)
===== PascalABC.NET =====
-1-
begin
var a := new integer[9];
for var i := 0 to 2 do
begin
a[3 * i] := ReadInteger('Введи элемент ' + (3 * i + 1).ToString);
a[3 * i + 1] := 6 * i + 4;
a[3 * i + 2] := Random(0, 9)
end;
a.Println
end.
-2-
begin
var a := ArrRandom(15, -99, 99);
a.Println;
var b := a.Select(p -> p * p).ToArray;
b.Println;
Println('Разность', a.Max - b.Min)
end.