Var
n:integer;
Begin
Write('Введите число ');
Readln(n);
if sqr(n) = (4*(sqr(n div 10)*(n div 10)+sqr(n mod 10)*(n mod 10))) then write('Ответ положительный') else write('Ответ отрицательный');
<span>End.</span>
предлагаю писать слова наооборот.Например:(я напишу,,я отправляюсь на Марс,и прибуду в час ночи,,)так это будет выглядеть:,,ичон сач в удубрип и ,сарМ ан ьсюялварпто я,,. Удачи))
Ответ:
program pred;
var
n, i, s: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
s := 0;
i := 1;
while i <= n do begin
if i mod 2 = 0 then
s := s + i;
Inc (i);
end;
WriteLn ('Сумма = ', s);
ReadLn;
end.
- - - - - - - - - - - - - -
program post;
var
n, i, s: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
s := 0;
i := 1;
repeat
if i mod 2 = 0 then
s := s + i;
Inc (i);
until i > n;
WriteLn ('Сумма = ', s);
ReadLn;
end.
=ЕСЛИ(ИЛИ(B28=B27;B28=B26);МАКС(B22^3;B23;B24^3;B25^(1/2))^3;ЕСЛИ(B28<B26;(LOG(B28^2)^3)+(LN(B26+B27))^2;EXP(B22+B23+B28)))
Если во второй формуле десятичный логарифм, то так:
=ЕСЛИ(ИЛИ(B28=B27;B28=B26);МАКС(B22^3;B23;B24^3;B25^(1/2))^3;ЕСЛИ(B28<B26;LOG10(B28^2)^3+LN(B26+B27)^2;EXP(B22+B23+B28)))
Ну вот в принципе можно такую схему