чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить
<span>readln(input,s);s:=s+' ';f:=0;</span>
<span>for i:= 1 to length(s) do begin</span>
<span>if s[i]<>' ' then r:=r+s[i];</span>
<span>if s[i]=' ' then begin k:=k+1;d[k]:=r;r:='';end;</span>
<span>end;</span>
<span>readln(input,n);</span>
<span>for i:= 1 to n do begin</span>
<span>readln(input,sait[i]);</span>
<span>readln(input,tegs[i]);</span>
<span>readln(input,pop[i]);</span>
соответственно и запись в файл write(f,s)
Ответ: 4.
Конечно, прокручивать это все "в уме" смысла нет. См. вложение.
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
float a, b, x;
cout << "Введите a и b: " << endl;
cin >> a;
cin >> b;
x = b / a;
cout << x;
}
Begin
writeln(' *');
writeln(' * *');
writeln(' * *');
writeln(' * *');
writeln(' * * *');
writeln(' * *');
writeln('*************');
writeln(' * *');
writeln(' * ***** *');
writeln(' * * * * *');
writeln(' * ***** *');
writeln(' ***********');
writeln('Фамилия');
end.