Нужно решить задачи к экзамену!!!

[Svetradosti]

https://sites.google.com/site/progra...naa-rabota-no8
Лабараторные работы с 8 и 9 у 4 варианта. Буду очень Благодарен за решение любой задачи.
Решение на Pascal ABC.

[ByAlex]

Сообщение от Svetradosti

https://sites.google.com/site/progra...naa-rabota-no8
Лабараторные работы с 8 и 9 у 4 варианта. Буду очень Благодарен за решение любой задачи.
Решение на Pascal ABC.

Вот задача 8-4 на скорую руку:

uses crt;
var
  Str:string;
  i:Integer;
  Flag:Boolean;
begin
  Flag:=True;
  write('Vvedite stroku = ');
  readln(Str);
  if  (Str[1] in ['0'..'9']) then
    Flag:=False;
  for i:=1 to Length(Str) do
  begin
    if not ((Str[i] in ['a'..'z']) or (Str[i]='_') or (Str[i] in ['0'..'9'])) then
      Flag:=False;
  end;
  write('Result: ');
  if not Flag then
    Writeln('no')
  else Writeln('yes');
  readln;
end.

[Svetradosti]

Благодарю. Но..Все необходимые данные должны считываться с текстового файла, результат выводиться на экран и в текстовый файл.

[ByAlex]

Сообщение от Svetradosti

Благодарю. Но..Все необходимые данные должны считываться с текстового файла, результат выводиться на экран и в текстовый файл.

Эх, не заметил!

[Svetradosti]

ByAlex, можешь написать программу, но чтобы данные считывались с текстового файла и результат выводился на экран и во второй текстовый файл?