перевести с с++/паскаля на 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.
156
380
Ответы на вопрос:
Відповідь:
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;
}
Популярно: Информатика
-
svalevayulia1006.03.2022 22:49
-
Pidoraser07.03.2020 01:55
-
leshaChi09.01.2021 06:47
-
elizavetamilas25.01.2022 23:37
-
Xalk2213.11.2020 00:16
-
GETRRRR04.07.2020 08:17
-
ruslapanazavr16.04.2020 07:26
-
qnorri13.06.2021 17:22
-
Нурсултан0507201727.12.2022 17:57
-
Dancerebuclic201724.04.2022 00:15