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.
Спасибо
Ответ дал: Гость
program p_1; var i, n : integer; a, s : real; b : array [1..1000] of real; begin writeln('введите число а'); readln(a); writeln('введите количество значений массива n'); readln(n); write('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if b[i] > a then s: =s+b[i]; writeln('сумма значений =', s); end.
Ответ дал: Гость
количество кбайт умножаете на 1024 получаете количество символов 3,5*1024=3584
Популярные вопросы