Category: Pascal

пытался самостоятельно, но увы ничего не получилось. Надеюсь на вашу помощь. Заранее спасибо.
Вот Паскаль код:
a:= 1;
For i := 2 to n do begin
j := i; k := 0; l := 0;
While j mod 2 = 0 do begin
j := j div 2;
k := k+1;
end;…

Помогите пожалуйста, у меня есть код на Pascal и мне нужно перевести его на Python
В Pascal ни разу в жизни не программировал, поэтому прошу помощи
uses crt;
const t=0.01;
function Dl(x1,y1,x2,y2:real):real;
begin
Dl:=sqrt(sqr(x1-x2)+sqr(y…

Помогите перевести в питон
var k, max, countA: integer;
c: char;
f: text;
begin
assign(f,’C:\24.txt’);
reset(f);
k := 0;
max := 0;
countA := 0;
while not Eof(f) do begin
read(f, c);
if (c = ‘E’) then…

Кто сможести перевести этот код с Pascal на Python
program ts4;
const
n = 10;
var
a:array[1..n] of byte;
i,sr:byte;
Begin
for i:= 1 to n do
readln(a[i]);
write(‘Vvedite nomer pervogo chisla massiva : ‘);
readln(i);
sr:= sr + a[i];
writeln;…

Кто сможести перевести этот код с Pascal на Python
program ts4;
const
n = 10;
var
a:array[1..n] of byte;
i,sr:byte;
Begin
for i:= 1 to n do
readln(a[i]);
write(‘Vvedite nomer pervogo chisla mass…

Скину ссылку, вдруг понадобиться файл к этой программе: https://inf-ege.sdamgia.ru/problem?id=40992
У меня получилось так
f=open(‘C:/17/17.txt’)
a=[int(i) for i in f]
#a[i+len(a)-1]!=0
c=0
s=0
t=[]
mx=-10000
for i in range(len(a)-1):
i…

Сумел решить вот эту задачу при помощи этого кода
with open( ‘C:/17.txt’ ) as f:
content = f.readlines()
n = 0
sum = int(0)
for i in range(0, len(content)-1):
k = int(content[i])
l = int(content[i+1])
u = k % 3
y = l % …

program n_1;

var v0, s: real;

begin

writeln(‘Вычисление длины пути торможения автомобиля’);

write(‘Введите начальную скорость (м/с)>>’);

readln (v0);

s:=v0*v0/10;

writeln (‘До полной остановки автомобиля пройдет ‘,

…

У меня есть программа на Pascal:
var n,k,t,z: integer;
c: array[1..100] of integer;

begin
readln(n);
k:=n;
t:=1;
for var x:=1 to n do c[x]:=x;
while k>1 do
begin
c[t]:=0; // этот куст съеден
z:=t; // запомн…

Это код на pascal:
program ChckMonoton;

var
s: string;

function FuncIsCorrect(s: string): boolean; // функция, проверяющая правильность записи заданной в векторном виде БФ
var i, n: byte;
begin
i := 1;
n := length(s);
if s <…

Помогите пожалуйста перевести код в питон
var
x1, x2: integer;

procedure Pol(a, b: integer);
var
pr, pf: real;
begin
writeln;
pr:=sqrt(sqr(a)+sqr(b));
pf:=arctan(x2 / x1);
writeln(‘Полярный радиус: ‘, pr);
writeln(‘Полярный угол: …

var a,b,c,d,n,m:integer;
begin
repeat

writeln(‘Введите часы прибытия поезда [0..23]’);
readln(a);

writeln(‘Введите минуты прибытия поезда [0..59]’);
readln(b);

writeln(‘Введите часы отправления поезда [0..23]’);
readln(c);

writeln(‘Вве…

Помогите пожалуйста перевести код с Pascal на Python, сам не понимаю!
Код Pascal:
var
numDel, i, j: longint;
d: array[1..4] of longint; begin
for i := 210235 to 210300 do begin
numDel := 0;
for j := 2 to (i div…