Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
MorryLyss
3 года назад
7
Сделайте задание 2 и 3 пожалуйста
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
fhjytr
3 года назад
0
0
Program Num1;
var a, b, c , s, p, rb, ro :real;
begin
writeln ('Введите стороны треугольника через пробел');
read (a,b,c);
p:= (a+b+c)/2;
s:= sqrt(p*(p-a)*(p-b)*(p-c));
rb:= s/p;
ro:= (a*b*c)/(4*s);
writeln ('RB = ',rb:0:2,' RO = ',ro:0:2);
end.
2)В конце программы будет написано:
данные
1418324196
результат:a=14,k=18
Отправить
Читайте также
ПАСКАЛЬ Составить программу, позволяющую в одномерном массиве, состоящем из N вещественных элементов, вычислитьколичество элемен
nataliako
Калькулятор может быть, не?
0
0
4 года назад
дано число. определить, оканчивается ли данное число на цифру 7.
Инга09 [8]
СLS
INPUT a
IF a MOD 10 = 7 THEN PRINT "да, оканчивается" ELSE PRINT "нет, не оканчивается"
END
0
0
7 месяцев назад
Прочитать ещё 2 ответа
ПОМОГИТЕ!!!Нарисуйте граф системы «Компьютер», содержащего следующие вершины: процессор, оперативная память, внешняя память, кла
катя341
Вот, держи..........
0
0
4 года назад
Var k, s:integer; Begin S:=5; K:=0; While k < 15 do begin K:=2+k; S:=k+s; End; Write(s); End.
Liska93 [8]
Это программа
я могу только так сказать
0
0
4 года назад
(Паскаль)1.Заполнить с клавиатуры массив из 10 элементов. Вывести на экран те элементы массива, которые больше своего номера на
Foxy - Kurama
Program gt;
var a:array[1..1000]of integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
end;
for i:=1 to 10 do
begin
if(a[i]=i+10)then write(a[i],' ');
end;
end.
0
0
3 года назад
Смотрите также:
Программа для паскаль для. F=sin (Y^2) - Ln(XY) помогите пожалуйста!!!
15
·
1 ответ
В электронной таблице выделен фрагмент ячеек B3:D5. Сколько ячеек содержит этот фрагмент?
7
·
1 ответ
Помогите пожалуйста в питоне (Python). Надо создаться список с элементами. Определить сколько в нем четных,а сколько нечетных эл
10
·
1 ответ
Из перечня имён выберите те, которые НЕ удовлетворяют маске ?l*ck*.*? Варианты ответа. 1. _click.txt 2. black.ppt 3. lo3ck.sts 4
8
·
1 ответ
Дана таблица: в ячейке A1 указана цена продукта в рублях. Напишите формулы, которые переведут значение из рублей в:доллары; евро
10
·
1 ответ
Дана программа, решающая определенную задачу. Проделать следующую работу: Сформулировать условие задачи, которую решает данная п
6
·
1 ответ
Паскаль!5. Дано трехзначное число. Кратна ли сумма его цифр семи? 8. Дано три натуральных числа x, y, z. Вычислить количество чи
6
·
1 ответ
Тег (BR) языка гипертекстовой разметки HTML означает: А) элемент маркированного списка; Б) цвет текста; В) переход на новую стро
10
·
1 ответ
Составить програму вычисления суммы всех нечетных элементов массива из 8 случайных целых чисел из диапазона от 0 да 200.
7
·
1 ответ
Сформулируйте массив из 10 целых чисел из промежутка [1;15] и вычислите произведение элементов массива с нечетными номерами
6
·
2 ответа
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!