Рекурсивная функция Digits без параметров, Задача на паскале (1-й курс) Опции

[Andrey-irk]

Здравствуйте. Помогите пожалуйста решить задачу. Попалась на экзамене, я не сделал! Надо сделать до завтра или ...(((

Задача Рекурсия.
Описать рекурсивную функцию Digits без параметров, которая подсчитывает количество четных цифр в тексте и выводит на экран латинские буквы из текста в порядке, обратном порядку ввода. Длина текста не известна, за текстом следует символ &-признак конца.

И ещё одна, ОЧЕНЬ простая задача. Решить не могу по глупости своей)))

Задача.
В текстовом файле хранятся строки. Найти самую длинную и самую короткую строку.

Заранее спасибо! Андрей.
ЗЫ: Если можно, то, пожалуйста, добавьте комментарии!)))

[volvo]

Ну, я тебе уже написал, вообще-то... Ну ладно, пускай здесь тоже будет:

var
  f: text;

function Digits: integer;
var ch: char;
begin
  read(f, ch);
  if ch <> '$' then
    digits := digits + byte(ch in ['1', '3', '5', '7', '9'])
  else begin
    digits := 0; exit
  end;

  if upcase(ch) in ['A' .. 'Z'] then write(ch);
end;

var n: integer;
begin
  assign(f, 'in.txt'); reset(f);
  n := Digits;
  writeln;
  writeln('count = ', n);
  close(f);
end.

Ну, да... Я просто автоматически поставил НЕчетные числа, измени их на четные, будет работать правильно... И символ, завершающий текст тоже поменяй на '&'

Сообщение отредактировано: volvo - 4.11.2006 0:32

[Andrey-irk]

Я что-то не понял, что эта программа выводит на печать?
count = 1 ???
Как должен выглядеть текстовый файл? Я набрал так: 1 4 5 2 A S 5 G 6 &