Var a,y:real;
begin
readln(a);
if (a<=0)then y:=a+5 else
if (a>0) and (a<1)then y:=1/a else y:=sqr(a);
print(y);
end.
1)
var
Sk, Ss, R, A : integer;
begin
read(R, A);
Sk := pi*R*R;
Ss := A*A;
If Sk > Ss then write ('Площадь круга больше')
else
If Ss > Sk then write ('Площадь квадрата больше')
else write <span>('Площади равны')
</span>end.
2) не знаю
Var mark:integer;
begin
readln(mark);
if mark=5 then writeln('молодец, я тобой горжусь!')
else if mark=4 then writeln('я рад, надеюсь, будет «5»')
else if mark=3 then writeln('не ленись и всё получится')
else writeln('ты, наверное, не ходишь на уроки');
end.
Пример:
4
<span>я рад, надеюсь, будет «5»</span>
1. 28 байт
<span>2.11001
Вот так как-то </span>
Ну давайте переведем все в биты и посчитаем.
1 Кбайт = 1024 байт = 8*1024 бит = 8192 бит
и плюс 256 бит будет 8448 бит