Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
alihan242
01.10.2021 12:01 •
Информатика
Написать программу в паскале: даны три числа а,в,с.определить являются ли они последовательными членами арифметической прогрессии. найти их разность.
Показать ответ
Ответ:
90125
03.07.2020 09:59
Var a,b,c,d:real;
begin
readln(a,b,c);
if a-b=b-c then
begin
d:=b-a;
writeln(d);
end
else
writeln('No');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
samaska
25.10.2020 07:41
62. Придумайте систему, обладающую следующей структурой....
миланка20051
15.02.2020 17:35
Ваня написал программу для подсчета площади и периметра квадрата...
anastasiagarap
22.12.2022 15:42
Между населёнными пунктами A, B, C, D, E, F построены дороги, протяжѐнность которых приведена в таблице. (Отсутствие числа в таблице означает, что прямой дороги...
yulyakarpenko3
12.02.2023 01:46
Каким из правил не стоит руководствоваться при публикации информации в интернете?...
narutoluffi1
23.07.2021 11:09
1. выполните подстановку операции так , чтобы равенство() or not ()= оказалось верным. 2.выполните подстановку операции так , чтобы (1 and =0 оказалось верным....
handofkremlin
21.12.2021 18:21
Висловіть своє судження про те, наскільки в наш час актуальною є ідея свободи і служіння народов...
southpaw40
21.12.2021 18:21
Назовите экспрессивно-воздействующие средства синтаксиса, которые использованы в заголовках, отрывках журнальных и газетных статей. Всегда ли оправдано их употребление?...
ziketeam123
04.06.2020 08:55
Стили и типы речи Стили: научный, официально-деловой, публицистический, художественный, разговорный. Типы речи: повествование, описание, рассуждение. Задание. Определите...
евгения2066
08.08.2022 18:43
Как в VBA написать условие: если число закончился на 1...
schastlivayolg
31.03.2023 14:59
Через яку з даних точок проходить графік рівняння 4x-7y=28? 1A (8 ; 1) 2B (4 ; -2) 3C (-7 ; 0) 4D (0 ; -4) нужно ришение от а до я...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a,b,c);
if a-b=b-c then
begin
d:=b-a;
writeln(d);
end
else
writeln('No');
end.