<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>
ГАНТЕЛИ
РЕНТГЕН
ТИГР
АГЕНТ
РАЛЛИ
ИГРА
НИТРАТ
От 8 литрового сосуда отлить 5 литров в 5литровый сосуд. <span>
Из 5литрового сосуда отлить 3 литра в 3литровый
сосуд.
Эти же три литра вылей назад в 8-литровый сосуд.
Из 5литрового сосуда вылей оставшиеся 2 литра в 3литровый сосуд.
Из 8литрового сосуда вылей 5 литров в 5литровый сосуд, а литр из 5литрового
сосуда перелей в 3литровый (в 5литровом
сосуде должно остаться 4 литра).
Из 3литрового сосуда перелей 3 литра назад в 8литровый сосуд.
</span>Все. Должно быть поровну
Смотри.
Смотришь, сколько раз выполняется твое условие. Здесь указано 4.
Смотришь на условие. Перемещение по X - 3,-2,1. Складываем - конечное перемещение равно 2.
Перемедение по Y - 0,-1,0. Складываем - конечное перемещение равно - 1.
Теперь умножаешь это перемещение (2;-1) на 4 т.к дано в условии, получается твой чертежник оказался после команды в точке (8;-4)
Вопрос таков - какую команду надо выполнить чтобы ВЕРНУТЬСЯ В ИСХОДНУЮ, значит нужно как бы шагнуть назад, с отрицательным значением
-8,4
Ответ :1
//1
for i := -3 to 3 do
Read(a[i]);
//2
Randomize;
for i := -3 to 3 do
a[i] := Random(101) - 50;
//3
for i := -3 to 3 do
a[i] := 5 * i;
//4
Randomize;
for i := -3 to 3 do
a[i] := Random(41) + 150
Lesson.exe другие не правильные и у jpg файла пробел