1 задача : Даны три положительных числа a, b, c. Проверить, могут ли они быть сторонами прямоугольного треугольника.2 задача : Используя оператор цикла For, найти количество положительных чисел N чисел Заранее спасиб...
1 задача : Даны
три положительных числа a,
b, c. Проверить,
могут ли они быть сторонами прямоугольного
треугольника.
2 задача : Используя
оператор цикла For,
найти количество положительных чисел
N чисел Заранее спасибо =)
Гость
Ответ(ы) на вопрос:
Гость// 1.
var
a,b,c: real;
begin
writeln('Введите два катета a,b: ');
readln(a,b);
writeln('Введите гипотенузу c: ');
readln(c);
if sqr(c) = sqr(a) + sqr(b) then writeln('Треугольник прямоугольный.')
else writeln('Треугольник не прямоугольный.');
end.
// 2.
var
A: array [1..100] of integer;
x,i,n: integer;
begin
writeln('Введите кол-во чисел N: ');
readln(n);
writeln('Введите числа: ');
for i:= 1 to n do readln(A[i]);
writeln('Вы ввели: ');
for i:= 1 to n do write(A[i]:4);
writeln;
for i:= 1 to n do if A[i] > -1 then x:=x+1;
writeln('Среди них положительных: ',x);
end.
Не нашли ответ?
Похожие вопросы