8бит=1байт; 1кбайт=1024байт 1024*1024*8=<span>8388608</span>
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString;
for var i:=1 to s.Length do
case s[i] of
'ч':s[i]:='ц';
'ц':s[i]:='ч'
end;
s.Println
end.
<u>Пример</u>
черная цапля циркулем чертила
церная чапля чиркулем цертила
Первое задание
VAR x, y, xmin, xmax, dx : Real;
BEGIN
Writeln('Табулирование функции.');
xmin := -3;
xmax := 2;
dx := 0.5;
x := xmin;
WHILE x<=xmax DO
begin
y := abs(2-sqr(x))+1;
Writeln(x:6:3, y:6:3);
x := x+dx;
end {while};
Readln
END.