составьте программу определяющую могут ли три числа a ,b,c является длинами сторон треугольника

Алина сказала, что Валя
Валя, что это Диана
Галя сказала, что не она
а Диана, что Валя, как всегда, шутит
Правду сказала только одна девочка. Кто занял первое место?

1.Сколько файлов размером 100 байт можно разместить на диске объемом 1.2 МБ и на диске 1.4МБ?
2. В результате повреждения односторонней дискеты 10% секторов оказалось дефектными, что составило 36864 байтов. Какой объем имеет дискета?

модему для передачи этого сообщения со скоростью 36400 бит/с ? 1. 150 2. 160. 3. 260 4. 180

2.Дано 2х значное число составить программу с помощью которой можно отпределить входит ли в это число цифра шесть.

Дана программа:
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.

деления (Div и Mod)
2.Составьте программу делящую переменную А=100 на 3. Деление прекратить когда остаток А будет меньше 3. Подсчитать количество вариантов деления и вынести значение на экран.