Формулы: C=2πR, S=πR²
program zadacha;
uses crt;
var r: integer;
c, s: real;
begin
clrscr;
write ('vvedite radius: ');
readln (r);
c:=2*pi*r;
s:=pi*sqr(r);
writeln ('dlina okruzhnosti=', c:0:5, ', ploschad=', s:0:5);
readkey;
end.
var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
<u><em>Microsoft qBASIC:</em></u>
DIM n AS LONG
CLS
INPUT "Введите число ", n
INPUT "Введите цифру для поиска ", d
flag = 0
DO WHILE n > 0 AND flag = 0
IF d = n MOD 10 THEN
PRINT "Цифра в числе есть"
flag = 1
ELSE
n = n / 10
END IF
LOOP
IF flag = 0 THEN PRINT "Цифры в числе нет"
END
<em><u>Тестовое решение:</u></em>
Введите число 5374012
Введите цифру для поиска 1
Цифра в числе есть
3 Кбайта = 3 * 2^10 байта = 3 * 2^10 * 2^3 бита
k = 2^12
I = k*i, где I - <span>информационный о</span><span>бъемом, k - кол-во символов, i -отводимое количество бит на символ
i = I/k = 3*2^13/2^12 = 3*2 = 6;
Мощность алфавита N = 2^i, N = 2^6 = 64
Ответ: 64 символа
</span>
Обязательный атрибут почтового адреса,по-английски называющийся "at":@?