Нужно учитывать, что некоторые страницы учитель уже проверил
Ответ: 2 страница
<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>
черная цапля циркулем чертила
церная чапля чиркулем цертила
1 байт = 8 бит
18 байт = 18*8 бит = 144 бит
№3 <span>Линий-выносок, размерных линий, полок</span>
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadReal3('Введите три числа через пробел:');
Write('Натуральный логарифм квадрата суммы первого и третьего числа ',
Ln(Sqr(a+c)):0:2)
end.