Найти наибольшее число с цифрой 3 на конце среди N задаваемых.

Question

Информатика

Джилва

11 сентября, 15:48

Найти наибольшее число с цифрой 3 на конце среди N задаваемых.

+2

Ответы (1)

Знаете ответ на вопрос?

Панет · Answer 1

2

3

4

5

6

7

8

9

10

11

12

var

m, max: Integer;

begin

WriteLn ('Введите последовательность целых чисел, оканчивающуюся нулём') ;

Read (max) ;

repeat

Read (m) ;

if m=0 then Break

else if max until False;

WriteLn ('Max = ', max) ;

end.