Uses crt;Var a:array[1..100] of integer; i,n,p,z,k,x:integer;BeginClrScr; write('Vvedite X= ');read(x);write('Razmernost massiva= '); read(n);write('Zapolnenie massiva= ');for i:=1 to n do beginread(a[i]);end;for i:=1 to n do beginIf a[i]=x then inc(k);end;Writeln;Write('res=',k); Readln; {выводим результат}End.

0 0

4 года назад

Треугольник задан длинами своих сторон – a, b, c. Определить является ли он тупоугольным, прямоугольным или остроугольным Сделат

vera3810

Program Zilly;
uses crt;
const n=10;
var
a,b,c:real;
tup,pryam:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('***          OK             ***');
tup:=0;
pryam:=0;
writeln('Введите стороны треугольника');
write('А = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
a:=a*a;
b:=b*b;
c:=c*c;
if a=b+c then pryam:=1;
if b=a+c then pryam:=1;
if c=a+b then pryam:=1;
if a>b+c then tup:=1;
if b>a+c then tup:=1;
if c>a+b then tup:=1;
if tup=1 then writeln('Треугольник тупоугольный')
    else
      if pryam=1 then writeln('Треугольник прямоугольный')
         else writeln('Треугольник остроугольный');
end.

0 0

1 год назад

Прочитать ещё 2 ответа

Помогите пожалуйста информатика!!! 7класс

-Mirra- [83]

Вот вроде так, попробуйте

0 0

4 года назад