Program a1;
var a,b: array [1..10] of integer;
n,i,k,sum,c: integer;
begin
Randomize;
For i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:3);
end;
Readln (n);
For i:=1 to 10 do
begin
k:=a[i];
while k>0 do
begin
sum:=sum+(k mod 10);
k:=k div 10;
end;
f (n=sum) then
begin
inc(c);
b[c]:=a[i];
end;
end;
for i:=1 to c do
write(b[i]:2);
<span>end.</span>
Ответ в файле...........................................
Амплитуда сигнала воспринимается человеком как громкость, а частота сигнала - как высота звука.
Чем больше амплитуда - тем громче звук.
Чем выше частота - тем звук выше.
Var a,b,c:real;
begin
repeat
write('Введите длины сторон треугольника a,b,c ');
readln(a,b,c);
until (a>0) and (b>0) and (c>0);
if (a=b) and (b=c) then writeln ('Равносторонний')
else writeln('Не равносторонний или такой треугольник не существует');
end.
Тест №1
Введите длины сторон треугольника a,b,c 5 5 -5
Введите длины сторон треугольника a,b,c 5 5 5
Равносторонний
Тест №2
Введите длины сторон треугольника a,b,c 5 6 5
Не равносторонний или такой треугольник не существует