решить задачу в Паскале.
Program perim;
Uses crt;
Var a,b,c,d,p:real;
Begin
Writeln(‘Введите значения длин сторон трапеции a,b,c,d’);
Readln(a,b,c,d);
P:=a+b+c+d;
Writeln(‘периметр=’,p);
Writeln(‘для возврата в редактор нажмите любую клавишу’);
Repeat until keypressrd;
End.
1. Ввод - Гвозди, картина молоток, стена
2. Операция - Прибить гвоздь к стене при молотка
3. Условие - Гвоздь прибит к стене? Нет->Повторить пункт 2;
Да->Переходим к пункту 4
4. Повесить картину на гвоздь
5. Конец
Ну это если не заморачиваться с условиями. К примеру можно после 4 пункта поставить условие на проверку положения картины, т.е Картина висит прямо? ->Нет то Действие выровнять положение картины;
Да->Конец
UPD: Ещё можно создать условие на состояние гвоздя - погнутый или целый, вытаскивание погнутого гвоздя и т.д.