Сначала отвести козу, затем вернуться самому, взять козу, отвести и забрать капусту. оставить капусту перевезти волка, забрать козу, оставить козу перевезти капусту, а затем перевезти козу.
Var d,a: integer;
begin
write('Диаметр пробоины: ');
readln(d);
write('Сторона куска фанеры: ');
readln(a);
if a>d then writeln('Пробоину можно заделать')
else writeln('Пробоину заделать нельзя');
end.
Пример:
<span>Диаметр пробоины: 5
Сторона куска фанеры: 6
Пробоину можно заделать</span>
Первый чертёж.Две шапки одному брату (Первая Ш и вторая Ш ведут к первой Б).Другому брату (Б посередине ведём линию к третей Ш).Один брат (Третья Б) остаётся без шапки,линию нему вести не надо.
Второй чертёж.К одной куртке (Первой К) ведём линии от двух братьев (Первая Б и вторая Б ведут линию к первой К).Последняя Б и последняя Ш соединяем линиями.
Наверное так.
Графический интерфейс и текстовый
Как вариант - сначала избавится от знака, потом проверять на кол-во разрядов. Т.е.
If (a < 0) a *= -1;
Или можно использовать cmath:
#include <cmath>
a = abs(a);