Запиши верный ответ.

Число 1910=100112 в восьмиразрядном представлении имеет вид:

первый для однократной записи

а второй для перезаписывания(тоесть на нем возможно перезаписывание)

program xxx;

  var a, b, s : real;

              r, p, d : real;

begin

    write ('введите певрое число- ');

    readln (a);

    write ('введите второе число- ');

    readln (b);

    s: = a+ b;

    r : = a - b;

    p : = a* b;

    d : = a/b;

    writeln ('сумма =', s);

    writeln ('разность =', r);

    writeln ('произведение =', p);

    writeln ('частное = ', d);

    readln

end.

где-то в начале ii тысячелетия до нашей эры предки финикийцев изобрели алфавит.

само слово "алфавит" восходит к названиям первых финикийских букв: альфа "алеф" (бык) и  бета "бет" (дом). финикийцы дали название каждой букве своего алфавита.

чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить

readln(input,s); s: =s+' '; f: =0; for i: = 1 to length(s) do beginif s[i]< > ' ' then r: =r+s[i]; if s[i]=' ' then begin k: =k+1; d[k]: =r; r: =''; end; end; readln(input,n); for i: = 1 to n do beginreadln(input,sait[i]); readln(input,tegs[i]); readln(input,pop[i]);

соответственно и запись в файл write(f,s)