1. Информатика
  2. Решите задачу по информатике

Решите задачу по информатике на языке Pascal. Даны катеты прямоугольного треугольника,найти его периметр​

Uchenick2002goda Uchenick2002goda    3   16.03.2020 00:19    1

Ответы
imranesedov777 imranesedov777  11.10.2020 22:23

Объяснение:

1

2

3

4

5

6

7

8

var

 a,b: real;

begin

 write('Vvedite kateti a, b: ');

 readln(a,b);

 writeln('P = ',a + b + sqrt(a*a+b*b):0:2);

 readln;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
torimuse torimuse  07.09.2019 14:50
Решить на java (определить, является ли число а делителем числа b? а наоборот? (получить два...
камилла731 камилла731  07.09.2019 14:50
Блок-схема дан массив найти количество элементов значения которого среднего арифметического и напечатать их номера (индексы)...
xfcsfttvd xfcsfttvd  07.09.2019 14:50
Отметь истинные высказывания буквой и ,ложные -буквой л...
Марянян Марянян  12.07.2019 03:50
1. перевести число 11011100 из двоичной в десятичную, восьмеричную и шестнадцатеричную системы счисления 2. перевести число 471 из восьмеричной в десятичную, двоичную...
maximax325 maximax325  05.08.2019 18:00
Вывести на экран каждый 4-ый член последовательности a(k)=(sqrt(sqr(k)+ ответ нужен на языке pascal....
Alenka341 Alenka341  05.08.2019 18:00
Допустим ли следующий оператор присваивания? если да, то напишите тип и итоговое значение переменной y, если нет, то напишите, почему y: = round(y*(7 div 4) mod 7/3)/y...
maryamra2210 maryamra2210  30.06.2019 13:50
Двухмерный массив. составить программу: вычислить произведение и количество отрицательных элементов матрицы в[4,4] под главной диагональю....
kuanich kuanich  30.07.2019 09:10
Книга, набранная с компьютера, содержит 32 страницы; на каждой странице - 35 строк, в каждой строке - 50 символов. считая, что каждый символ кодируется 2 байтами, определите...
Ameya Ameya  30.07.2019 09:10
Считая, что каждый символ кодируется 2 байтами, оцените информационный объём следующей фразы в битах: word - по- слово ....
Rilon Rilon  31.05.2019 00:40
Значения двух массивов a и b с индексами от 1 до 100 при следующего фрагмента программы: for i : = 1 to 100 doa[i] : = i*i; for i : = 1 to 100 dob[i] : = a[i]-100; сколько...

Популярные вопросы