Добавил:
Mendeleev
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
(* рТПЗТБННБ io2 -- ЛПРЙТХЕФ stdin Ч stdout *)
uses stdio;
var
c:integer;
begin
c := getchar;
while c <> EOF do
begin
putchar (c);
c := getchar;
end;
end.
uses stdio;
var
c:integer;
begin
c := getchar;
while c <> EOF do
begin
putchar (c);
c := getchar;
end;
end.
Соседние файлы в папке 11