N= -3*(-3)=9
N=-2*(-2)=4
N=-1*(-1)=1
N=0*0=0
N=1*1=1
N=2*2=4
N=3*3=9
X=0+(9+4+1+0+1+4+9)=28
Вроде так
Var a,b:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if a=b then writeln ('a=b') else
begin
if (a>b) then writeln('max=',a,' min=', b) else
writeln ('max=',b, ' min=', a)
end;
readln;
<span>end.</span>
Ответ 0
По данным условиям этого задания нет ни одного целого значения Х, чтобы логическое выражение было истинным
Из Х>36 и Х>33 следует, что х>36
И в тоже время должно быть х<35
Var
a,b,c,d,e:longint;
begin
readln(a);
readln(c);
d:=d+a mod 10;
d:=d+a div 10 mod 10;
d:=d+a div 100 mod 10;
if d mod c = 0 then writeln('Yes') else writeln('No');
end.
<span>
</span>
I hate you.-Я тебя ненавижу