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

Question

Информатика

Роули

14 апреля, 21:14

Найти наибольшее число с цифрой 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.