Написать программу для турбо паскаля.
5-9 класс
|
Условие:
По 3 введеным сторонам треугольника определить является ли треугольник прямоугольным.
PROGRAM TREUG;
var a,b,c: integer;
begin
writeln ('Сторона 1=');
readln (a);
writeln ('Сторона 2=');
readln (b);
writeln ('Сторона 3=');
readln (c);
if ((a^2=b^2+c^2)or(b^2=a^2+c^2)or(c^2=a^2+b^2)) then
writeln ('треугольник прямоугольный');
else writeln ('треугольник не прямоугольный');
end.
Другие вопросы из категории
страниц содержал переданный текст если известно что информационный вес одного символа равен 8 битам а на одной странице 48 символов
ОТВЕТ ПОЛНЫЙ плиз
Б)_______Кбайт=_____байт=12888бит
В)_______Кбайт=_____байт=8192бит
Г)_______Гбайт=1536Мб=_____Кбайт
Д)12Кбайт=_____байт=_____бит
Е)6Кбайт=_____байт
Ж) 94 Мбайта=________Кбайт
З) 107 Гбайт=_____Мбайт=______байт
И) 5242880Кбайт=_______Гбайт
Перевести!
Читайте также
1. Написать программу нахождения произведения n чисел.
амеба каждые 3 часа делиться на 2 клетки. Определить, сколько амеб будет через 3,6,9,12 и 24 часа.
3) дано натуральное числоо N и действительное число Х. Вычислить сумму ряда sin(x)+sin(2x)+sin(3x)+...+sin(Nx).
4) написать программу для вычисления n-ой степени числа А.
помогите, пожалуйста)
Пользователь вводит пять чисел. Программа выводит ответ: "Максимальное число ... ".
Написать программу в "КуМиРе"
max(min(a,b), min(c,d)), не
используя сложные логические условия и вложенные ветвления. Числа a,b,c,d
- целые. Протестировать программу для следующих исходных данных:
Найти сумму всех n-значных чисел (1 ≤ n ≤ 4)