найти произведение четных и не четных чисел в этой программе var a, s: integer; b, c: byte; begin readln(a); b := 0; c := 0; while a > 0 do begin if (a mod 2) = 0 then b := b + 1 else c := c + 1; a := a div 10; end; writeln('четные: ', b); writeln('нечетные: ', c); end.

1:

a = int(input())  

b = int(input())

if a == b:

   print('Числа равны')

elif a > b:

   print(f'Первое число - {a} больше, чем второе число - {b})

elif a < b:

  print(f'Второе число - {b} больше, чем первое число - {a}')

2:

a = int(input())  

b = int(input())

print('Периметр треугольника', a * 3)

print('Периметр квадрата', b * 4)

if a * 3 == b * 4:

   print('Периметры равны')

elif a * 3 > b * 4:

   print('Периметр треугольника больше, чем периметр квадрата')

elif a * 3 < b * 4:

   print('Периметр квадрата больше, чем периметр треугольника')

3:

a = int(input())  

b = int(input())

c = int(input())

print('MAX=', max(a, b, c), sep='')

4:

m = int(input())

t = int(input())

if m > t:

   print('У Маринки больше яблок. Тарасу нужно дать ещё', m - t, 'ябл.')

elif m < t:

  print('У Тараса больше яблок. Маринке нужно дать ещё', t - m, 'ябл.')

elif m == t:

   print('Количество яблок равно.')

Объяснение:

извини, украинский не знаю, думаю сам изменишь, если нужно

Е:видеозапись.avi          |график.xIs          |ИЗОБРАЖЕНИЯаквариум.bmp                                                            |ФОТОБия.jpeg                                                                                         |Катунь.jpe          |          |          |          |ТЕКСТЫбуква.txt                                        |онегин.doc          |          |          |мелодия.mp3          |презинтация.pptПЛЖАЛУЙСТА ДРУЗЬЯ пкт даю ветьЕ:видеозапись.aviЕ:график.xIsЕ:ИЗОБРАЖЕНИЯаквариум.bmpЕ:ИЗОБРАЖЕНИЯФОТОБия.jpegЕ:ИЗОБРАЖЕНИЯФОТОКатунь.jpegЕ:ТЕКСТЫбуква.txtЕ:ТЕКСТЫонегин.docЕ:мелодия.mp3Е:презинтация.ppt