ЗАДАЧИ ПО ИНФОРМАТИКЕ ВЕТВЯЩИЕСЯ АЛГОРИТМЫ ПОМОГИТЕ!!!

integer - тип переменных, который отвечает за целые числа. здась "Д" и "М" - символьные переменные.

а символьные переменные это char.

а остальные две поможешь?

Только что проверил-все работает.

вот при наличии этих строк программа будет отвечать условию задачи.

1.vara,b,c:integer;beginwriteln ('Введите сторону треугольника А');readln (a);writeln ('Введите сторону треугольника B');readln (b);writeln ('Введите сторону треугольника C');readln (c);if (a=b) and (b=c) then writeln ('Треугольник равностороний')else writeln ('Треугольник не является равносторонним');end.--------2. vara,b,c:integer;beginwriteln ('Введите сторону треугольника А');readln (a);writeln ('Введите сторону треугольника B');readln (b);writeln ('Введите сторону треугольника C');readln (c);if (a=b) then writeln ('Треугольник равнобедренный')else writeln ('Треугольник не является равнобедренным');end.--------3. vars:char;beginwriteln ('Кто ты: Мальчик или девочка? Введи Д или М:');readln (s);if s= 'М' then writeln ('Мне нравятся девочки!');if s= 'Д' then writeln ('Мне нравятся мальчики');end.