• Составить 2 программы:
    1.Создаёт текстовый файл mir.txt содержащий 12 чисел введённых с клавиатуры.
    2.Считать информацию из текстового файла mir.txt и вывести её на экран манитора.

Ответы 2

  • var  r, i : integer;begin  assign (output, 'mir.txt'); rewrite (output);  for i := 1 to 12 do  begin    read (r);    write (r);  end;end.Если информация любая, то:var  c : char;begin  assign (input, 'mir.txt'); reset (input);  while not eof do  begin    read (c);    write (c);  end;end.
  • 1 задача.var a,i:integer;           f1:text;beginassign (f1,'mir.txt'); rewrite (f1);for i:=1 to 12 do begin read ( a);                                 write (f1,a);                                            end;close (f1);end.2 задача.var a,i:longint;             f1:text;     begin  assign (f1,mir.txt');   reset(f1);  while not eoln(f1) do writeln (a);  close (f1);end.Писала на Паскале.
    • Автор:

      quinnupyx
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years