Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
zyxra4
09.06.2020 18:04 •
Информатика
Создайте программу на pascalabc, используя if then для рачета полупериметра треугольника (a+b+c)/2. если a< > 0 и т.д. и a+b> c и т.д.
Ответ:
olga000064
03.10.2020 08:48
Var a,b,c:real;
begin
readln(a,b,c);
if (a<>0) and (a+b>c) then writeln ((a+b+c)/2)
else
writeln('Неверные входные значения');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
DedPerdun
10.04.2020 23:08
Что такое развёрнутаяформа записи числа?...
damilya12sladcoeshka
09.05.2020 10:47
В чем причины резкого увеличения пользователей очень нада до 21:30...
асема2005
22.02.2021 03:41
Перевести 16гбит в мб, перевести 3*2^21мб в гбит...
biersacknikita9
02.07.2021 08:02
Перевести 16гбит в мб, перевести 3*2^21мб в гбит с...
Phoenix511
23.03.2022 00:23
Найти произведение всех натуральных чисел от 1 до 100 на языке pascal...
cergei201088
21.08.2020 01:25
1. рисунок размером 176 на 512 пикселей занимает в памяти 33 кбайт (без учёта сжатия). найдите максимально возможное количество цветов в палитре изображения....
den4uk1402
29.04.2021 14:47
Задание 4. Вставьте в текст пропущенные словосочетания, а) — е) в нужной форме: а) особый мир людей; б) родной язык; в) система падежей; г) совокупность образов;...
ruslana80205
20.04.2022 10:55
Приведите два аргумента , которые могут подтвердить данную точку зрения и два, которые могут опровергнуть еедвижения на новую дорогу была создана; обязанности при...
southpaw40
20.12.2020 05:38
Тәрізді, тұрғындар, салқын, ұқсас, пісіреді, халық, тағам, зерттеп, аздап, айнымай қалады сөздеріне синоним...
колдун3
17.09.2020 16:24
Территориальные изменения Германии после 1 мировой войны...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
readln(a,b,c);
if (a<>0) and (a+b>c) then writeln ((a+b+c)/2)
else
writeln('Неверные входные значения');
end.