Помогите плиз решить 2 две задачи в Паскале)

[Nur015]

1.Стороны одного треугольника равны A1,B1,C1. Написать алгоритм и программу проверки равенства ему другого треугольника.
2.Измеряя промежутки времени между вспышкой молнии и раскатом грома, определить, удаляется или приближается гроза?

[ZX Spectrum-128]

1.

If (a1=a2) and (b1=b2) and (c1=c2) then
 Writeln('ага, равны')
Else
 Writeln('не-а, не равны');

[Poma][a]

№1
Ну хорошо..

a1 b1 c1 a2 b2 c2
1   2   3   3   2   1

[ZX Spectrum-128]

Ну, понятно, что сначала

  if (a < b+c) and (b < a+c) and (c < a+b) then

Вроде так...

[Poma][a]

Еще контрпример(именно он и имелся ввиду в моем первом замечании.. если в условии сказано треугольник, то не нужно проверять его на существование) :

3 4 5 
5 4 3

UPDATE

ZX Spectrum-128, намёк, что сначала нужно отсортировать стороны, если конечно же не хочется сравнивать все комбинации

Могли бы дать человеку подумать

[BDA]

ZX Spectrum-128, намёк, что сначала нужно отсортировать стороны, если конечно же не хочется сравнивать все комбинации

[ZX Spectrum-128]

Аааа, дошло
Ну, проверять Стороны на равенство поочередно. Сколько еще проверок добавится? Еще две?

Про соотировку длин сторон мне и в голову не пришло

[Poma][a]

Сколько еще проверок добавится? Еще две?

Неа.. Намноогооо больше..

[ZX Spectrum-128]

Сообщение от Poma][a

Неа.. Намноогооо больше..

Ой-ееее, пусть топикстартер пишет проверку. Намек на решение задачи ему дали.

А по второй? Если массив разниц измерений возрастает, то гроза удаляется?

[Poma][a]

А по второй? Если массив разниц измерений возрастает, то гроза удаляется?

А куда Вам массив?
ReadLn (a, b, c, d);
a, c - молнии
b, d - гром
(b-a) < (c-d) Вывод