USES Crt; VAR A : STRING [255]; I: INTEGER; BEGIN ClrScr; WriteLn('Введите текст'); ReadLn(A); I:=4; While (I<=Length(A)) DO Begin IF A[I]='мама' THEN Begin Insert ('и папа ',A,I); I:=I+1; End; I:=I+6; End; WriteLn('Измененный текст:'); WriteLn(A); END.
Спасибо
Ответ дал: Гость
2гбайта=2000000байт
2000000байт/400байт=5000текстовых файлов
Ответ дал: Гость
решаем относительно a: a=(-6*x2-c)/x4=-6*x2/x4-c/x4
Популярные вопросы