Переведите код программы из паскаля в пайтон . program physik;
Var
a : integer;
v, G, M, R, h : real;
begin
writeln ('Типы решаемых задач:');
writeln ('1 - нахождение v (первая космическая скорость);');
writeln ('2 - нахождение G (гравитационная постоянная);');
writeln ('3 - нахождение M (масса планеты);');
writeln ('4 - нахождение R (радиус планеты);');
writeln ('5 - нахождение h (высота над поверхностью планеты).');
write ('Напишите номер типа задачи: ');
readln (a);
if a=1 then
begin
write ('Напишите через пробел значения G, M, R, h: ');
readln (G, M, R, h);
v := sqrt(GM/(R+h));
writeln ('ответ: v=',v:5:2);
end;
if a=2 then
begin
write ('Напишите через пробел значения v, M, R, h: ');
readln (v, M, R, h);
G := sqr(v)(R+h)/M;
writeln ('ответ: G=',G:5:2);
end;
if a=3 then
begin
write ('Напишите через пробел значения v, G, R, h: ');
readln (v, G, R, h);
M := sqr(v)(R+h)/G;
writeln ('ответ: M=',M:5:2);
end;
if a=4 then
begin
write ('Напишите через пробел значения v, G, M, h: ');
readln (v, G, M, h);
R := GM/sqr(v)-h;
writeln ('ответ: R=',R:5:2);
end;
if a=5 then
begin
write ('Напишите через пробел значения v, G, M, R: ');
readln (v, G, M, R);
h := G*M/sqr(v)-R;
writeln ('ответ: h=',h:5:2);
end;
if (a<1) or (a>5) then
writeln ('Такого номера типа задачи не существует.');
writeln ('Перезапустите программу и выберите номер типа задачи от 1 до 5.');
end.

👇

Увидеть ответ

Ответ:

oksanademyanov

08.04.2020

2945602973779 кот нажми на стрелку, и все

4,6(36 оценок)

Открыть все ответы

Ответ:

ндо

08.04.2020

1. 10
2. 12
3. 3
4. 22
5. 15
6. 34
7. 3
Часть 2
1.
Var
n:integer;
Begin
Write('Введи число ');
Readln(n);
if (n mod 2) = 0 then write(n,' чётное) else write(n,' нечётное);
End.
2.
Var
a,b:integer;
Begin
Write('Введи числа ');
Readln(a,b);
if a>b then Begin Write('a = ',b*a,' b = ',a+b) else write('a = ',a+b,' b = ',a*b);
End.
3.
Var
n:integer;
Begin
write('Введи двузначное число ');
Readln(n);
if ((n div 10) = 6) or ((n mod 10) = 6) then write('6 присутствует') else write('6 нет в этом числе');
End.

4,4(14 оценок)

Ответ:

Yar4ik03

08.04.2020

var a:longint;

begin

read(A);

if (a mod 10)=(a div 10) then writeln('цифры одинаковы');

if (a mod 10)>(a div 10) then writeln('вторая цифра больше');

if (a div 10)>(a mod 10) then writeln('первая цифра больше');

end.

var a,b,c:longint;

begin

read(A);

b:=a mod 10;

c:=a div 10;

b:=b*b*b;

c:=c*c*c;

d:=4*(b+c);

if sqr(A)=d then writeln('квадрат этого числа равен учетверённой сумме кубов его цифр') else writeln(' квадрат этого числа не равен учетверённой сумме кубов его цифр');

end.

var a,b,c,d:longint;

begin

read(A);

b:=a mod 10;

c:=a div 10;

d:=c+b;

if d mod 3=0 then writeln('сумма цифр данного числа кратна 3') else writeln('сумма цифр этого числа не кратна 3');

if d mod 4=0 then writeln('сумма цифр данного числа кратна 4') else writeln('сумма цифр этого числа не кратна 4');

end.

var a,b,c,d,e:longint;

begin