ПАСКАЛЬ!!!! На вход программки поступает неведомое количество чисел целых, ввод

ПАСКАЛЬ!!!!

На вход программки поступает неизвестное количество чисел целых, ввод заканчивается нулём. Отыскать наибольшее из введённых чётных чисел.

Заблаговременно спасибо.

Задать свой вопрос
1 ответ

var a,k:integer;

BEGIN

k:=0;

repeat

read(a);

if (agt;k) and (a mod 2=0) then

k:=a;

until a=0;

writeln(k);

end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт