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.
Спасибо
Ответ дал: Гость
uses crt; var n,i: integer; a: array[1..1000] of integer; beginread(n); for i: =1 to n do read(a[i]); for i: =1 to n do beginif a[i]< 0 then a[i]: =abs(a[i]); for i: =1 to n do write(a[i],' '); end.
Ответ дал: Гость
program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.
Популярные вопросы