Регистрация
Войти
Стать экспертом Правила
Информатика

срочно!!!!! напишите пожалуйста программу на паскале к задаче Дано н-натуральных чисел не привышавшая 300 .Найти наибольшее число с предпоследней цифрой 0. заранее спасибо

ОТВЕТЫ
begin
  var max := 0;
  var n := readinteger('Введите n: ');
  write('Введите n чисел: ');
  for var i := 1 to n do
  begin
    var a := readinteger();
    if(a.ToString.Length > 1) then
       if(a.ToString[a.ToString.Length - 1] = '0') then
         if(a > max) then max := a;
  end;
  if(max = 0) then write('Нет таких чисел.')
   else write(max);
end.
41
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам