1.
Function Check(A : Longint) : Boolean;
Begin
If A>9 then Check:=((A mod 10)=(A div 10 mod 10)) and Check(A div 10) else Check:=True;
end;
Var N : Longint;
Begin
Readln(N);
Writeln(Check(N));
end.
//прога на Pascal`e
var
x: real;
function f (a:real):real;
begin
f:= (sqr(cos(a)) - 5) / (abs(a) + 3);
end;
begin
write ('Введите x: ');
readln (x);
write ('A = ', f(x));
end.
Я думаю что В. Ведя себя как все, ты вливаешься в круг общения.
Если в своем кругу ты ведешь себя особо вежливо, то не думай что получишь взаимную вежливость.
Вариант 2.
подставляем: 2>2(нет,значит ложно - пишем 0)
2>5(нет,ложно - 0)
0V0=0
2<3(истинно - 1)
0----->1 = 1(Истинно)
обратите внимание на таблицы конъюнкции,дизъюнкции и следстия
1 символ = 1 байт значит
Мира = 4 байтам
- = 1 байт
Мир = 3 байта
Итого 4+1+3 = 8 байтов