Pascal abc #11)вывести на экран числа от 10 до 150 с шагом 10.2)вывести на экран числа от 100 до 200 с шагом 10 в обратном порядке. #21)даны два числа. выведите большее из них на экран. #31)даны 3 числа. выведите большее из них и сумму оставшихся двух чисел на экран.

Задание #1

var a:integer;

begin

a:=10;

while a<=150 do

begin

write (a,'  ');

a:=a+10

end;

writeln;

a:=200;

repeat

write (a,'  ');

a:=a-10

until a<100

end.

Задание #2

var a,b:integer;

begin

readln(a,b);

if a>b then write (a) else write (b)

end.

Задания #3

var a,b,c:integer;

begin

readln(a,b,c);

if (a>b) and (a>c) then write (a,'   ',b+c);

if (b>a) and (b>c) then write (b,'   ',a+c);

if (c>a) and (c>b) then write (c,'   ',a+b)

end.

Окрім тубільних мешканців Північної Канади, нуукі, і мисливців за трофеями, найбільшу небезпеку для вівцебиків становлять зграї вовків. Під час нападу голодної зграї сіроманців, вівцебики утворюють захисне коло, щільно притискаючись тілами один до одного, і направляють свої роги на супротивника. У центрі кола ховаються телята. Коли хижак нападає, кільце не порушується, лише найближчий вівцебик підкидає нападника рогами, а сусіди затоптують його ногами. Вовки, пересвідчившись у тому, що прорватися кріз кільце неможливо, припиняють напад.
Але такий спосіб самозахисту не міг врятувати вівцебиків від озброєних мисливців. Коли ескімоси і нуукі уперше взяли у руки вогнепальну зброю, вони стали масово винищувати вівцебиків. Дитинчат відловлювали і відвозили до зоопарків. Після того, як уряд Канади зафіксував різке зниження чисельності вівцебиків, було заборонено полювання на них і почали

Постарался учесть все возможные числа

Python:

a = int(input())

a = str(a)

a1 = a

c = 0

e = 0

br = 0

for b in range(len(a)):

   c += int(a[b])

for b in range(len(a)):

   if a[b] == '9':

       e += 1

if e == len(a):

   print(a[:len(a) - 1] + '6')

else:

   for b in range(len(a)):

       if br == 'break':

           break

       for d in range(9, -1, -1):

           if br == 'break':

               break

           a1 = a[0:b] + str(d) + a[b + 1:]

           if int(a1) > int(a) and int(a1) % 3 == 0:

               print(a1)

               br = 'break'