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

Question

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

---

---

Comments

Pascal ABC ?

---

Да

Answer 1

1.
program wk;
var a,b,c:integer;
begin
readln(a);
readln(b);
readln(c);
if (a=b) and (a=c) and (b=c)
then writeln('Треугольник равносторонний');
end.

2 .  
program wk;
var a,b,c:integer;
begin
readln(a);
readln(b);
readln(c);
if (a=b)
then writeln('Треугольник равнобедренный');
end.

3.
program wk;
var a:char;
begin
writeln('Кто ты: мальчик или девочка ?Введи Д или М') ;
readln(a);
If (a='Д') and (a<>'M') then
writeln('Мне нравятся девочки!')
else writeln('Мне нравятся мальчики!')
end.

Comments

пробуй

---

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

---

if s= 'М' then writeln ('Мне нравятся девочки!');
if s= 'Д' then writeln ('Мне нравятся мальчики');

---

все работает просто я поменял Мна B(ну типа бойс)а Д на G(типо гёрл) и все норм пашет

---

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

---

Ну и программа твоя будет работать неверно.

---

лол

---

Про то, что надо вводить букву "М" на русском языке не сказано в задании ничего.

---

Введи тогда М на английском.

---

Это было бы слишком просто.

Answer 2

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.

Comments

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.

---

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.

---

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

---

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

---

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

---

а у нас только мы пользуемся VAR и INTEGER