Pascalabc.net var str : string; i : integer; begin write('введите строку: '); readln(str); for i : = 1 to length(str) do case str[i] of 'а' : str[i] : = 'б'; 'а' : str[i] : = 'б'; 'б' : str[i] : = 'а'; 'б' : str[i] : = 'а'; end; writeln(str); end.
Спасибо
Ответ дал: Гость
думаю, что 19,5 кб = 0,019 мб.
Ответ дал: Гость
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.
Популярные вопросы