перевести из Паскаль в Питон Progoam multiply;
var A, B, AB: integer;
begin
Write ( 'A= ') ; ReadLn (A)
Write ( 'B= ' ); ReadLn (B)
AB=AB;
Write(A, '', B, '=', AB)

END

Question

Информатика: перевести из Паскаль в Питон Progoam multiply; var A, B, AB: integer; begin Write ( A= ) ; ReadLn (A) Write ( B= ); ReadLn (B) AB=A*B; Write(A, * , B, = , AB) END

karamovrobert · Accepted Answer

Const
    key = 3;

var
    i: integer;
    s: string;

function Encode(s: string; key: integer): string;
var
    i: integer;
begin
    for i := 1 to Length(s) do
        s[i] := chr(ord(s[i]) + key);
    Encode := s;
end;

function Decode(s: string; key: integer): string;
var
    i: integer;
begin
    for i := 1 to Length(s) do
        s[i] := chr(ord(s[i]) - key);
    Decode := s;
end;

begin
    write('Введите строку данных - ');
    readln(s);
    writeln('Выберите действие');
    writeln('1 - Закодировать');
    writeln('2 - Раскодировать');
    readln(i);
    case i of
        1: s := Encode(s, key);
        2: s := Decode(s, key);
    end;
    Writeln(s);
end.

перевести из Паскаль в Питон Progoam multiply; var A, B, AB: integer; begin Write ( 'A= ') ; ReadLn (A) Write ( 'B= ' ); ReadLn (B) AB=A*B; Write(A, '*', B, '=', AB) END

MOGZ ответил

перевести из Паскаль в Питон Progoam multiply;
var A, B, AB: integer;
begin
Write ( 'A= ') ; ReadLn (A)
Write ( 'B= ' ); ReadLn (B)
AB=AB;
Write(A, '', B, '=', AB)

END