Ввести с клавиатуры массив а из 10 целых элементов, заменить все элементы массива на 1 и вывести массив.!

Python3:

print('Введите все числа, разделяя их символом " " (Пробел). ')

b = [int(i) for i in input().split()]

cost = 1

for i in range(len(b)):

b[i] = 1

print(b)

end = input('enter something to close program')

// Pascal ABC.NET

type

 Train = class

 

 private

 

   ПунктНазначения: string;

   НомерПоезда: string;

   ВремяOтправления: string;

   Информация: string;

   

   static function ЧастьНомера(s: string) := s.MatchValue('\d*').ToInteger;

 

 public

 

 constructor (ПН, НП, ВО: string; И: string := '');

 begin

   ПунктНазначения := ПН;

   НомерПоезда := НП;

   ВремяOтправления := ВО;

   Информация := И

 end;

 

 static procedure УпорядочитьПункты(var a: array of Train) :=

   a := a.OrderBy(p -> p.ПунктНазначения)

       .ThenBy(p -> p.ВремяOтправления).ToArray;

   

 static procedure УпорядочитьНомера(var a: array of Train) :=

   a := a.OrderBy(p -> ЧастьНомера(p.НомерПоезда)).ToArray;  

 

 function ToString: string; override :=

     $'{ПунктНазначения,-20} {НомерПоезда,-5} {ВремяOтправления,7}' +

         $'  {Информация}';

     

end;

function ДобавитьИнформацию(Self: array of Train;

     НомерПоезда, Информация: string): boolean; extensionmethod;

begin

 Result := True;

 var i := Self.FindIndex(p -> p.НомерПоезда = НомерПоезда);

 if i >= 0 then

   Self[i].Информация := Информация

 else

   Result := False

end;

begin

 var a := new Train[5];

 a[0] := new Train('Адлер','4c','15:40');

 a[1] := new Train('Санкт-Петербург','132п','07:19');

 a[2] := new Train('Казань','8ф','12:35');

 a[3] := new Train('Новосибирск','217п','18:05');

 a[4] := new Train('Адлер','18c','08:32');

 Train.УпорядочитьНомера(a);

 a.PrintLines;

 var np := ReadlnString('Номер поезда:');

 var info := ReadlnString('Добавочная информация:');

 if not a.ДобавитьИнформацию(np, info) then

   Println('Не найден номер поезда');

 Train.УпорядочитьПункты(a);

 a.PrintLines

end.

Python 3:

2.

(m, n) = input('Введи два числа: ').split()

m = [int(d) for d in m]

n = [int(d) for d in n]

for i, j in zip(m, n):

  print(f"{i}*{j}={i*j}")

3.

b = int(input('Введите количество байтов: '))

print(f"{b // 1024} Кб {b % 1024} байта")

PascalABC.Net:

2.

var m, n: integer;

begin

   write('Введи два числа: ');

   readln(m, n);

   writeln(m div 100, '*', n div 100, '=', (m div 100) * (n div 100));

   m := m mod 100;

   n := n mod 100;

   writeln(m div 10, '*', n div 10, '=', (m div 10) * (n div 10));

   m := m mod 10;

   n := n mod 10;

   writeln(m, '*', n, '=', m * n);

end.

3.

var b: integer;

begin

   write('Введи количество байтов: ');

   readln(b);

   writeln(b div 1024, ' Кб ', b mod 1024, ' байта');

end.