Question

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

Answer 1

1.
var
a,b,c:integer;
begin
writeln ('Введите сторону треугольника А');
readln (a);
writeln ('Введите сторону треугольника B');
readln (b);
writeln ('Введите сторону треугольника C');
readln (c);
if (a=b) and (b=c) then writeln ('Треугольник равностороний')
else writeln ('Треугольник не является равносторонним');
end.
--------
2.
var
a,b,c:integer;
begin
writeln ('Введите сторону треугольника А');
readln (a);
writeln ('Введите сторону треугольника B');
readln (b);
writeln ('Введите сторону треугольника C');
readln (c);
if (a=b) then writeln ('Треугольник равнобедренный')
else writeln ('Треугольник не является равнобедренным');
end.

--------
3.
var
s:char;
begin
writeln ('Кто ты: Мальчик или девочка? Введи Д или М:');
readln (s);
if s= 'М' then writeln ('Мне нравятся девочки!');
if s= 'Д' then writeln ('Мне нравятся мальчики');
end.

Answer 2

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

Answer 3

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

Answer 4

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