Program qq;
var a,b,c, max:real;
begin
read(a,b,c);
if (a>b) then
begin
if (a>c) then max:=a
else max:=c;
end
else
begin
if (b>c) then max:=b
else max:=c;
end;
writeln(max);
end.
Он опоздал на урок-исстинное
Он не делал задания-ложное
ПЖ отметь как лучший
После преобразований:
A+BC=0
A+CD=0
CD¬A=0
Тогда получаем:
ABCD
0000
0001
0010
0100
0101
Var
a, b: integer;
x, y, z, t: integer;
begin
{2}
Readln(a);
Writeln(Sign(a) * abs(a + 3));
{3}
Readln(a, b);
if a > b then a := b;
Writeln(a);
{4}
Readln(x, y, z);
if (x > y) and (y > z) then t := 5
else t := -1;
x := x * t;
y := y * t;
z := z * t;
Writeln(x, ' ', y, ' ', z)
end.
For i in range(100,1000):
i1 = i // 100
i2 = i // 10 % 10
i3 = i % 10
if (i % 11 == 0) and (i1==3 or i2==3 or i3 == 3):
print(i)
Результат:
132
143
231
253
308
319
330
341
352
363
374
385
396
473
539
583
638
693
737
803
836
913
935