#Python
#ответ B:
n = 1
num = []
while n != 0:
n = int(input("Введите число : "))
if n != 0:
num.append(n)
num3 = []
for n in num:
if int(n) % 3 == 0:
num3.append(n)
print("Макс :", max(num3), " Мин :", min(num3))
#ответ C:
n = 1
num = []
while n != 0:
n = int(input("Введите число : "))
if n != 0 and len(str(n)) == 2:
num.append(n)
num6 = []
for n in num:
if int(n) % 10 == 6:
num6.append(n)
if num6 == True:
print("Макс : ", max(num6))
else:
print("Нет такого число!")
Объяснение:
1)
var
a,b,c:real;
begin
readln(a,b);
c:=180-a-b;
if (a>90) or (b>90) or (c>90) then writeln('тупоугольный')
else
if (a=90) or (b=90) or (c=90) then writeln('прямоугольный')
else writeln('остроугольный');
end.
2)
var
v:real;
begin
readln(v);
if v<7.8 then writeln ('ракета упадет на Землю');
if v=7.8 then writeln ('ракета станет спутником Земли');
if (v>7.8) and (v<=16.4) then writeln ('ракета останется в пределах Солнечной системы');
if (v>16.4) then writeln ('ракета покинет пределы Солнечной системы');
end.
a, b: integer;
begin
readln(a);
while (inttostr(a).Length > 1) do
begin
b := 0;
foreach c: char in inttostr(a) do
b += strtoint(c);
a := b;
end;
writeln(b);
end.
var
a, b, e: integer;
d: string;
begin
readln(a);
d := inttostr(a);
while (length(d) > 1) do
begin
d := inttostr(a);
b := 0;
for e := 1 to length(d) do
b += strtoint(d[e]);
a := b;
end;
writeln(b);
end.