Задать вопрос
19 марта, 04:02

Помогите перевести код с паскаля на питон

program for5;

var

i: integer;

price_one: real;

begin

read (price_one) ;

for i : = 1 to 10 do writeln (i / 10, ' кг. стоит - ', price_one * (i / 10), ' ') ;

end.

+1
Ответы (1)
  1. 19 марта, 06:29
    0
    Price_one = float (input ())

    for i in range (1,11) :

    print ('{0:.3f} кг. стоит - {1:.2f}'. format (i/10, price_one * (i/10)))

    Пример:

    0.100 кг. стоит - 2.55

    0.200 кг. стоит - 5.10

    0.300 кг. стоит - 7.65

    0.400 кг. стоит - 10.20

    0.500 кг. стоит - 12.75

    0.600 кг. стоит - 15.30

    0.700 кг. стоит - 17.85

    0.800 кг. стоит - 20.40

    0.900 кг. стоит - 22.95

    1.000 кг. стоит - 25.50
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите перевести код с паскаля на питон program for5; var i: integer; price_one: real; begin read (price_one) ; for i : = 1 to 10 do ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Сократите эту программу program sr; var a, b, c : real; y, x, xb, xc : real; na, nb, nc: integer; function stup (x: real; n: integer) : real; var i: integer; k: real; begin k:=1; for i : = 1 to n do k : = k * x; stup : = k; end;
Ответы (1)
Укажите области видимости в программе: Program P; Var x: integer; Procedure P1; Var y: integer; Begin P2; End; Procedure P2; Var z: integer; Begin {Тело процедуры} End; Procedure P3; Var m: integer; Begin P1; End; Begin {Тело основной программы}P3;
Ответы (1)
Почему выводится ноль в программе? program pr1; var a: real; n: longint; function power (a:real; n:longint) : real; begin var i: integer; var anew: real; anew:=a; for i: = 2 to n do begin a:=a*anew; end; end; begin readln (a, n) ;
Ответы (1)
Где здесь ошибка program n_11; var a, b, c:Real; var d:Real; var x, x1, x2:Real; begin WriteLn ('Расширение квадратного уровнения') ; Write ('Введите коофиценты a, b, c >>') ; ReadLn (a, b, c,) ; d:=b*b-4*a*c;
Ответы (1)