Var
max, i : integer;
a : array [1..20] of integer;
begin
max := -1;
for i := 1 to 20 do read (a[i]);
for i := 1 to 20 do
if (a[i] < 1000) and (a[i] > 99) and (a[i] mod 4 = 0) and (a[i] > max) then
max := a[i];
if max > -1 then write (max) else write ('Nety');
end.
Пыль а особенно смола от сигарет которая оседает на оптике лазера!
Program pr;
uses crt;
Var x, y, buf:integer;
Begin
Write('Введите x ');
readln(x);
Write('Введите y ');
readln(y);
if x>y then
Begin
buf:=x;
x:=y;
y:=buf;
end;
Writeln('x = ',x);
Write('y = ',y);
readln;
<span>end.</span>
Нужно составить вот такое дерево. Составляем его по следующему принципу; в Н можно попасть из С, D и G. В С можно попасть из А и D, и так далее.
#1
import math
r=int(input())
print("S={}\nP={}".format(math.pi*(r**2),2*math.pi*r))
#2
a,b=[int(i) for i in input().split()]
print("a*b={}".format(a*b))
print("a/b={}".format(a/b))
print("a+b={}".format(a+b))
print("a-b={}".format(a-b))