Pascal в Python

Здравствуйте! Друзья , помогите конвентировать код хеловорлдщику в Pythone
Хочется понять как организовать "нахождение целой части и остатка от деления , проверка делимости на 2, 3, 5, 7 ; а ещё как связать вводимую цифру и процедуру.
Спасибо=)


var u,x,y:integer;
label m, n;

procedure one(a:integer); {Увеличение числа на 1}
var b,i: integer; s,s1,o:string;
begin
s:='|';
b:=a+1;
if b=0 then writeln('Ответ: ',a,'+1=',s,' (',b,')') else
begin
o:='';
for i:=1 to a do
s:=s+'|';
writeln('Ответ: ',a,'+1=',s,' (',b,')');
end;
end;

procedure two(a:integer); {Уменьшение числа на 1}
var b,i:integer; s:string;
begin
s:='|';
b:=a-1;
if b=0 then writeln('Ответ: ',a,'-1=',s,' (',b,')') else
begin
for i:=1 to b do
s:=s+'|';
writeln('Ответ: ',a,'-1=',s,' (',b,')');
end;
end;

procedure three(a,b:integer); {Сложение двух чисел}
var c,i:integer; s:string;
begin
s:='|';
c:=a+b;
for i:=1 to c do
s:=s+'|';
writeln('Ответ: ',a,'+',b,'=',s,' (',c,')');
end;

procedure four(a,b:integer); {Умножение двух чисел}
var c,i:integer; s:string;
begin
s:='|';
c:=a*b;
for i:=1 to c do
s:=s+'|';
writeln('Ответ: ',a,'*',b,'=',s,' (',c,')');
end;

procedure five(a,k:integer); {Возведение в степень}
var i,i1,b:integer; s:string;
begin
s:='|';
b:=1;
if k=1 then
begin
for i1:=1 to a do
s:=s+'|';
writeln('Ответ: ',a,'^1=',s,' (',a,')');
end else
for i:=1 to k do
b:=b*a;
for i1:=1 to b do
s:=s+'|';
writeln('Ответ: ',a,'^',k,'=',s,' (',b,')');
end;

procedure six(a,b:integer); {нахождение целой части и остатка от деления}
var c,d,i:integer; s:string;
begin
s:='|';
c:=a div b;
for i:=1 to c do
s:=s+'|';
write('Ответ: целая часть числа ',a,' от деления на число ',b,': ',s,' (',c,')');
d:=a mod b;
for i:=1 to d do
s:=s+'|';
writeln(', остаток от деления числа ',a,' на число ',b,': ',s,' (',d,')');
end;

procedure seven( a:integer); {проверка делимости на 2, 3, 5, 7}
var i:integer;
begin
for i:=1 to a do
s:=s+'|';
if a mod 2 = 0 then writeln('число ',s,' (',a,')',' делится на 2') else writeln('число ',s,' (',a,')',' не делится на 2');
if a mod 3 = 0 then writeln('число ',s,' (',a,')',' делится на 3') else writeln('число ',s,' (',a,')',' не делится на 3');
if a mod 5 = 0 then writeln('число ',s,' (',a,')',' делится на 5') else writeln('число ',s,' (',a,')',' не делится на 5');
if a mod 7 = 0 then writeln('число ',s,' (',a,')',' делится на 7') else writeln('число ',s,' (',a,')',' не делится на 7');
end;

begin
m: writeln;
writeln('Если Вы хотите увеличить число на единицу - введите 1');
writeln('Если вы хотите уменьшить число на единицу - введите 2');
writeln('Если вы хотите найти сумму двух чисел - введите 3');
writeln('Если вы хотите найти произведение двух чисел - введите 4');
writeln('Если вы хотите найти заданную степень числа - введите 5');
writeln('Если вы хотите найти целую часть и остаток от деления первого числа на второе - введите 6');
writeln('Если вы хотите проверить делимость введенного числа на 2,3,5,7 - введите 7');
writeln('Если вы хотите завершить программу, введите 8');
readln(u);
if u=1 then
begin
repeat
write('Введите число: ');
readln(x);
until x>0;
one(x);
end
else
if u=2 then
begin
repeat
write('Введите число: ');
readln(x);
until x>0;
two(x);
end
else
if u=3 then
begin
repeat
write('Введите число: ');
readln(x);
until x>0;
repeat
write('Введите второе число: ');
readln(y);
until x>0;
three(x,y);
end
else
if u=4 then
begin
repeat
write('Введите число: ');
readln(x);
until x>0;
repeat
write('Введите второе число: ');
readln(y);
until x>0;
four(x,y);
end
else
if u=5 then
begin
repeat
write('Введите число: ');
readln(x);
until x>0;
repeat
write('Введите положительную степень, в которую хотите возвести число: ');
readln(y);
until x>0;
five(x,y);
end
else
if u=6 then
begin
repeat
write('Введите число: ');
readln(x);
until x>0;
repeat
write('Введите второе число: ');
readln(y);
until x>0;
six(x,y);
end
else
if u=7 then
begin
repeat
write('Введите число: ');
readln(x);
until x>0;
seven(x);
end
else
if u=8 then goto n;
goto m;
n: end.

0

Сообщение от cultofpersonaly "нахождение целой части и остатка от деления , проверка делимости на 2, 3, 5, 7 ; а ещё как связать вводимую цифру и процедуру. Спасибо=)

В третьем Питоне целое деление // (во втором отличается), остаток %. Проверка делимости сводится к проверке остатка.
Как связать вводимую цифру и процедру - не знаю.
Пожалуйста, обращайся.

0

Сообщение от dondublon В третьем Питоне целое деление // (во втором отличается), остаток %

Во всех Python'ах divmod

0