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

Question

Информатика

Исаак

2 октября, 21:24

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

+4

Ответы (1)

Знаете ответ на вопрос?

Виктор · Answer 1

1

2 uses crt;

3 var

4 f : text;

5 s : string;

6 i, code : integer;

7 begin

8 clrscr;

9 assign (f, 'filename. txt') ;

10 reset (f) ;

11 while not eof (f) do

12 begin

13 readln (f, s) ;

14 val (s, i, code) ;

15 if (length (s) = 2) and (code = 0) then

16 writeln (s) ;

17 end;

18 readln;

19 end.

20