Задать вопрос
15 февраля, 16:29

Помогите перевести программу из паскаля в python.

var n, x, d: integer;

begin

writeln ('Введите число N:') ;

readln (n) ;

d:=10;

for x:=1 to n do

begin

while d<=x do

d:=d*10;

if x*x mod d = x then

writeln (x,'*', x,'=', x*x) ;

end;

end.

+2
Ответы (2)
  1. 15 февраля, 17:00
    0
    N = int (input ("Введите число n:"))

    d = 10

    for x in range (1, n+1) :

    while d<=x: d = d*10

    if x*x % d = = x: print (x,'*', x,'=', x*x)

    Пример:

    Введите число n:7

    1 * 1 = 1

    5 * 5 = 25

    6 * 6 = 36
  2. 15 февраля, 17:57
    0
    N = int (input ("Введите число N: "))

    d = int (10)

    for x in range (1, n) :

    while (d<=x) : d*=10

    if ((x*x) % d = = x) : print (x,"*", x,"=", x*x)
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Помогите перевести программу из паскаля в python. var n, x, d: integer; begin writeln ('Введите число N:') ; readln (n) ; d:=10; for x:=1 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Почему программа не работает (Pascal) Program abc; Var A, B: array [1 ... 5] of integer; i:integer; begin For i : = 1 to 5 do begin writeln ('введите A') ; readln (A[i]) ; writeln ('Введите B') ; readln (B[i]) ; writeln (A[1]+B[1]) ;
Ответы (1)
Program a2; var n, i, min, max, x:integer; begin Writeln ('Введите колицество человек в классе:') ; Readln (n) ; Writeln ('Введите рост 1 ученика:') ; readln (x) ; min:=x; max:=x; for i:=2 to n do begin Writeln ('Введите рост ', i,' ученика:') ;
Ответы (1)
Помогите объяснить задачу! Program String29; var otvet:String; i:integer; S0, S:String; C:char; begin Writeln ('Введите строкy S') ; readln (S) ; Writeln ('Введите строкy S0') ; readln (S0) ; Writeln ('Введите символ C') ; readln (C) ;
Ответы (1)
Program Series17; var a, B, N, i:integer; bol:boolean; begin i:=0; n:=0; bol:=true; Writeln ('Введите число B') ; readln (B) ; Writeln ('Введите число N') ; Readln (N) ; Writeln ('Введите ', N,' целых чисел.
Ответы (2)
Помогите! Когда я ввожу ответ на вопрос, оно не отвечает на него! Это Паскаль Program Programm; var n:string; a:integer; b:integer; c:integer; answer: integer; begin write ('Как вас зовут:') ; readln (n) ; writeln ('Привет, ', n,'!
Ответы (1)