Пусть а, b, c – стороны треугольника. Какое сообщение можно вывести на экран при выполнении условия (a = b) or (b = c) or (a=c)?

1Нет верного ответа
2Треугольник тупоугольный 3Треугольник прямоугольный
4Треугольник равносторонний
5Треугольник равнобедренный

5

Объяснение:

тк or обозначает или , выходит что треугольник будет равнобедренным при выполнении одного из условий

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.

1) найти убыль как к-во * 12%

2) найти прирост как к-во * 20%

3) к-во = к-во-убыль+прирост

выполнить 8 раз

var

x,a,b: real;

i: integer;

begin

x: =100000;

for i: =1 to 8 do

begin

a: =x*0.12;

b: =x*0.20;

x: =x+b-a;

end;

writeln(x);

end.