Question

помогите перевести с с++/паскаля на phyton или помогите решить задачу!!
задача:
Напишите программу , которая в последовательности натуральных чисел определяет наибольшее двузначное число, меньше 80. программа получает на вход натуральные числа , количество введенных чисел неизвесно, последовательномть чисел заканчивается числом 0. В последовательности всегда имеется двузнпчное число, меньше 80.
С++
#include

void main()
{
int i, max = 10;
while(std::cin >> i)
{
if(i == 0) break;
if(i > max && i < 80) max = i;
}
std::cout << i << endl;
}
паскаль:
begin

var a := ReadSeqIntegerWhile('Введите числа:',x -> x = 0).ToArray;

var check := 0;

foreach x: integer in a do begin

if (x < 80) and (x > 9) then

check +=1;

if (a.Count > 1000) and (x > 3000) then

exit;

end;

if check = 0 then

exit;

a.Where(x -> (x < 80) and (x > 9)).Max.Print

end.

Answer 1

Відповідь:

int main() {

int i, max = -1;

while(std::cin >>i)

{if(i==0) break;

else if(i > max && i < 80) max = i;

}

std::cout << max << std::endl;

return 0;

}

Answer 2

Ответ:

m=10

while True:

a=int(input())

if a == 0:

break

if m<a<80:

m=a

print(m)

Объяснение:

отступы на скрине