Вы ввели трехзначное число. Затем ввели любую цифру. Составьте программу, определяющую, есть ли в этом числе данная цифра.

1.Двое мальчиков катались на лодке.К берегу подошли 2 солдата.Лодка мала так что в ней могут переправиться только двое мальчиков или только 1 солдат.Как солдатам переправиться?
2.имеются 2 ведра , одно 4 литра ,другое 9 литров,как набрать з реки ровно 6 литров.

Анжела поменяла себе тариф обслуживания сотовой связи. На начало месяца у нее на счету было 300 рублей. 13 числа она добавила еще 500 рублей. Хватит ли ей имеющихся средств если известно, что: 1. Оператор ей предоставляет кредит (возможность уходить в минус) в размере 100 рублей; 2. Минута исходящих вызовов стоит 2 рубля (количество исходящих минут вводим во время выполнения программы); 3. Исходящее текстовое сообщение стоит 1,5 рубля (количество смс вводим во время выполнения программы); 4. За использование услуги «Мобильный интернет» 250 рублей в месяц;

составьте программу ,определяющую, является ли целое положительное число трехзначным

Дана программа:
Program p1;
var a:integer.
begin
write('Введите целое число:');
readln(a);
if(a>=100) and (a<1000)then write(' Да')
else write(' Нет');
End.
1.Запишите, что будет выведено на экране в результате выполнения данной в п.1 программы. при=-2, при а=123.
2. Внести данную программу изменения таким образом, чтобы программа определяла, удовлетворяет ли данное вещественное число а неравенству -14,5 < a <_ 18,
3. Даны целые числа a и b. Составьте программу, определяющую, есть ли среди них хотя бы одно, не равное нулю.
4. Ввести три целых числа. Если ни одно из чисел не является чётным, то вывестина экран их произведение.
Тема с Packal ABC.