сделайте очень надо Практична робота №6 “Проекти з вкладеними циклами та розгалуженнями”

Завдання 1. ( ів)

Складіть проект для малювання квадратів різного кольору, з довжиною сторони 50 кроків (рис.1), поки виконавець не доторкнеться до межі Сцени з використанням вкладеної алогоритмічної структури повторення.

Рис.1. Квадрати різних кольорів

Збережіть проект у файлі під назвою завдання _1.

Завдання 2. ( ів)

Складіть проект, у якому виконавець, поки він не доторкнеться до межі сцени буде повторювати такі дії: рухатися вгору і говорити “Рухаюся вгору’’,

якщо буде натиснуто клавішу стрілка вгору.

Або рухатися вниз і говорити “Рухаюся вниз” , якщо буде натиснуто клавішу стрілка вниз. Проект повинен бути реалізований один скриптом і містити 2 неповні розгалуження, вкладені в цикл з передумовою

Збережіть проект у файлі під назвою завдання _2

Я буду писать часть предложения, а внизу табличку, чтобы понятнее было))

Набрать 9 литров в первую ёмкость.

1. 9 л      2. 0л (пока что) 

Перелить 5 литров во вторую ёмкость.

1.4 л       2. 5л

Из второй ёмкости вылить всю воду

1.4л        2. 0л

И из первой ёмкости перелить во вторую ёмкость оставшиеся 4 литра.

1.0 л      2. 4л

Набрать полную первую ёмкость

1. 9л     2. 4л

И из неё перелить во вторую 1 литр.

1. 8л     2. 5л

Воду из второй емкости вылить

1.8 л     2. 0л

И из 8 литров воды в первой ёмкости перелить во вторую ёмкость 5 литров

1. 3л     2. 5л

Вот и все!!

begin   //начало программы

var nk, nt, ck ,ct, s: integer  // задание переменных типа действительные числа;

writeln('Введите количество карандашей'); //вывести на экран надпись

readln(nk);  // запись ответа пользователя в переменную nk

writeln('Введите количество тетрадей'); //вывод на экран надписи

readln(nt); // запись ответа пользователя

writeln('Введите стоимость 1 карандаша');  // вывод на экран надписи

readln(ck); // запись ответа пользователя в переменную

writeln('Введите стоимость 1 тетради');

readln(ct);

s:=(nk*ck)+(nt*ct); // вычисление стоимости покупки

writeln('Стоимость покупки: ',s);  // вывод стоимости покупки на экран

end.  // конец программы

(ck-стоимость 1 карандаша, ct-стоимость 1 тетради, s-стоимость покупки)

(nk-количество карандашей, nt-количество тетрадей)