// 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.
2)5
3)1
4)4
5)2
Пронумеровал