Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
SkyZee
07.08.2020 11:37 •
Информатика
Составить программу вычисление площади трехгольника выделить целую часть результата и выделить дробную часть
Показать ответ
Ответ:
Makc920
10.09.2020 06:55
Var
S, a, h: real;
begin
write('Введите длину основания --->');read(a);
write('Введите высоту --->');read(h);
S := (a * h) / 2;
writeln('Площадь треугольника равна', ' ', S);
writeln('Целая часть - ', Trunc(S));
writeln('Дробная часть - ', Frac(S));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sport22
04.01.2023 04:22
Найти все двузначные числа , сумма цифр которых не меняется при умножении числа на 2,3,4,5,6,7,8,9...
AnnaKor14
19.01.2021 12:57
Напишите программу, которая выбирает максимальное и минимальное из трёх введённых чисел. Входные данные Входная строка содержит три целых числа, разделённых пробелами....
Orlolo
23.05.2023 17:26
Дано целое число. Если оно является положительным, то прибавить к нему 49; в противном случае не изменять его. Вывести полученное число.1) program cislo;vara: integer;beginwriteln(...
Viktoria818
03.06.2021 20:43
Укажи функцио органоида, обозначенного цифрой 2...
artemgavrev
25.08.2021 13:23
ХЕЛП ПОЗЯЗЯ Задание №2 ( ). Определите, с какими из веществ, названия которых приведены ниже будет взаимодействовать оксида кальция: O, NaOH, H2SO4, CO, Напишите уравнения...
jhgtreedhhuuu
11.06.2020 01:18
Закончите уравнения следующих процессов. Укажите окислители, восстановителиB процессы окисления, восстановления a)Si^-4 - 4e b)S^+6+8e c)Fe•- 3 e...
lizokturina
05.05.2021 03:28
Оцените роль личности в истории. Написать годы правления -и конкретные действия повлиявшие на ход событий. Внутренняя политика- 1, Внешняя политика - 1, Ваше мнение о...
taya99191
05.11.2022 10:06
Вес рабочего стола равен 41 КН у рабочего стола четыре ножки площадь опоры каждый ножки равна 16 см квадратных Какое давление оказывает рабочий стол на соответствующую...
hzhwhsbsh
18.10.2022 06:59
Распишите уравнения реакций уравняйте уравнения и назовите продукты реакции...
rada201
25.05.2021 01:35
Найти производную функции y=ln x*cos x...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
S, a, h: real;
begin
write('Введите длину основания --->');read(a);
write('Введите высоту --->');read(h);
S := (a * h) / 2;
writeln('Площадь треугольника равна', ' ', S);
writeln('Целая часть - ', Trunc(S));
writeln('Дробная часть - ', Frac(S));
end.