const
p = 3.14;
var
L, S:real;
begin
write('L = '); readln(L);
writeln('S = ', sqr (L / (2 * p)) * pi);
end.
1. 1)в. 2)б. 3)а2.ім’я_поштової_скриньки_користувача@доменне_ім’я_поштового_сервера3. 1),2)4. 3),4)5. 1),2),3),5)6. 1),3),4)
1 символ- 8 битов, значит:
17* 8= 136 битов ( 17 символов, пробел тоже считается )
Ответ:
User CRT;
Var x, y:real;
BEGIN
ClrScr;
Write('Введите значение функции x=');
ReadLn(x);
if x<0 then y:=x*x+4*x-8 else y:=1/(x*x+4*x-8);
WriteLn('при x=', x:7:2, 'y =', y:7:2);
END.
Объяснение:
program line_4;
uses crt;
var
kb, b: longint;
mb: real;
begin
clrscr;
write(‘kb (килобайт) = ‘); readln(kb);
b:=kb*1024*8;
mb:=kb/1024;
writeln(kb,‘ килобайт = ‘, b, ‘ бит = ‘, mb:6:4, ‘ мб’);
readkey;
end.