<u>Задание 1)</u>
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var fam:=ReadlnString('Фамилия:');
var nam:=ReadlnString('имя:');
var otch:=ReadlnString('отчество:');
var fio:=fam+' '+nam+' '+otch;
Writeln(fio,', длина текста- ',fio.Length)
end.
<u><em>Тестовое решение</em></u>
Фамилия: Иванов
имя: Сергей
отчество: Петрович
Иванов Сергей Петрович, длина текста- 22
<u>Задание 3)</u>
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var w:='ИНТЕГРАЛ';
Writeln(w[5]+w[7]+w[2:5]+w[8]+w[1]);
Writeln(w[6]+w[4]+w[2:4]+w[5:3:-1]+w[2]);
Writeln(w[3]+w[1]+w[5:7]);
Writeln(w[7]+w[5:3:-1]+w[2:4]);
Writeln(w[6:]+w[8]+w[1]);
Writeln(w[1]+w[5:8]);
Writeln(w[2::-1]+w[3]+w[6:8]+w[3])
end.
<u><em>Решение:</em></u>
ГАНТЕЛИ
РЕНТГЕН
ТИГР
АГЕНТ
РАЛЛИ
ИГРА
НИТРАТ
Var x, y: real;
begin
write('x = ');
read(x);
write('y = ');
read(y);
{1}
if (y >= x + 3) and (x <= 0) and (sqr(x + 1) + sqr(y - 2) <= sqr(2)) or
(x >= 0) and (y <= -x + 3) and (sqr(x + 1) + sqr(y - 2) <= sqr(2)) then
writeln('1: YES')
else
writeln('1: NO');
{2}
if (y <= 2) and (y >= 0) and (sqr(x - 3) + sqr(y) >= sqr(1)) or
(y <= 0) and (sqr(x - 3) + sqr(y) <= sqr(1)) then
writeln('2: YES')
else
writeln('2: NO');
{3}
if (y >= 0) and (y <= x + 1) and (y <= -x + 2) or
(y >= 0) and (y <= x - 2) then
writeln('3: YES')
else
writeln('3: NO');
{4}
if (sqr(x - 2) + sqr(y) >= sqr(1)) and (sqr(x - 2) + sqr(y) <= sqr(2)) and
((x - 2) * y >= 0) then
writeln('4: YES')
else
writeln('4: NO');
{5}
if (sqr(x) + sqr(y) <= sqr(2)) and ((y <= x - 2) or (y >= x + 2)) then
writeln('5: YES')
else
writeln('5: NO');
{6}
if (sqr(x - 2) + sqr(y - 2) >= sqr(1)) and (y <= x + 2) and
(y >= -x + 2) and (y >= x - 2) and (y <= -x + 6) then
writeln('6: YES')
else
writeln('6: NO');
{7}
if (y <= 2) and (y >= -2) and (sqr(x) + sqr(y) >= sqr(1)) and
(sqr(x - 2) + sqr(y) >= sqr(1)) and (sqr(x - 2) + sqr(y) >= sqr(1)) then
writeln('7: YES')
else
writeln('7: NO');
{8}
if (sqr(x - 2) + sqr(y) <= sqr(2)) and (sqr(x - 2) + sqr(y) >= sqr(1)) and
(sqr(x - 2) + sqr(y + 2) <= sqr(2)) then
writeln('8: YES')
else
writeln('8: NO');
{9}
if (y <= 3) and (y >= 0) and (y >= x) and (y >= -x + 3) or
(y <= 3) and (y >= 0) and (y <= x) and (y <= -x + 3) then
writeln('9: YES')
else
writeln('9: NO');
{10}
if ((sqr(x - 3) + sqr(y) <= sqr(2)) and (sqr(x - 3) + sqr(y) >= sqr(1)) or
(sqr(x - 3) + sqr(y) <= sqr(4)) and (sqr(x - 3) + sqr(y) >= sqr(3))) and
(y >= 0) then
writeln('10: YES')
else
writeln('10: NO');
{11}
if (y <= 2) and (y >= -2) and (x >= -2) and (x <= 2) and
(sqr(x - 2) + sqr(y - 2) >= sqr(1)) then
writeln('11: YES')
else
writeln('11: NO');
{12}
if (y <= 3) and (y >= 1) and (x >= 1) and (x <= 5) and
(sqr(x - 3) + sqr(y - 2) >= sqr(1)) then
writeln('12: YES')
else
writeln('12: NO');
{13}
if (y <= 0) and (y >= -3) and (x >= -1) and (x <= 1) or
(y <= x + 2) and (y <= -x + 2) and (y >= 0) then
writeln('13: YES')
else
writeln('13: NO');
<span>end.
Последние 3, я думаю, можно оставить Вам)</span>
<span> 0,0625 Мб =</span><span>65 536 байт
</span>
Я МОГУ СКАЗАТЬ ТО ЧТО У НЕГО ЕСТЬ ВООБЩЕТО НЕ 1 ОШИБКА А 2 ОШИБОК))