Напишите программу на языке програмирования паскаль в которой нужно найти гипотенузу прямоугольного треугольника если известны катеты.
5-9 класс
|
program abc;
uses crt;
var a,b,c:real;
begin
writeln('Vvedite 1 katet');
readln(a);
writeln('Vvedite 2 katet');
readln(b);
c:=sqrt((a*a)+(b*b));
writeln('Gipotenuza=',c);
end.
Другие вопросы из категории
программу, уменьшающую все элементы массива на единицу.
Читайте также
2. Напишите алгоритм вычитания двух дробей.
3. напишите последовательность команд на алгоритмическом языке для наиболее быстрого вычисления выражения:
(х+х2+5х4)4
2.Условный оператор(ветвление)
Нарисуйте блок-схему.Дано два числа.Верно ли, что он равны?
3.Циклы
Напишите программу на Паскале. Выведите на экран табицу умножения на 4 в виде 1+4=4,2+4=8,....9*4=36.
4.Одномерные массивы
Напишите программу на Паскале.Подсчитайте количество максимальных элементов массива А [1..12].
5.Двумерные массивы
Напишите программу на Паскале. создать массив случайны чисел В[1..6,1..6].Все элементы массива, расположенные выше главной диагонали сделать равными О.Вывести исходный и исправленный массивы.
программы представлен ниже:
массива. ПОМОГИТЕ,ПОЖАЛУЙСТА. задача из учебника по информатике,8 класс,Горячев,Герасимова.
и выводит наибольше значение из них. Числа - целые от 1 до 1000.
при решении задачи можно пользоваться только целочисленными арифметическими операциями +,-,*,//,%,=. нельзя пользоваться нелинейными конструкциями:ветвления, циклами, функциями вычисления модуля, извлечения квадратного корня., и условными функциями!!!!!!!
2) Дано целое число N. Выведите следующее за ним четное число. При решении задачи нельзя использовать условную инструкцию if и циклы!!
хотя бы формулу:) заранее спасибо)