Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kristinabuslae
13.08.2022 04:42 •
Информатика
Вводятся 3 значения ускорения свободного падения.программа должна проверить,есть ли среди них ускорение свободного падения?
Показать ответ
Ответ:
Nkpr
02.10.2020 11:03
Program Uskorenie;
uses Crt;
const g = 9.81;
var g1, g2, g3 : real;
begin
ClrScr;
Write (' Введите g1 ='); ReadLn(g1);
Write(' Введите g2 ='); ReadLn(g2);
Write (' Введите g3 ='); ReadLn(g3);
WriteLn;
if (g1=g) or (g2=g) or (g3=g) then WriteLn(' Есть!')
else WriteLn(' Отсутствует...');
ReadLn;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Pelyovin1980
30.04.2022 09:28
нужно очень Рассмотрите схемы и напишите в какой Цикл входит данные схемы....
эйй4
13.06.2021 10:23
Выполните арифмитические действия (сложение и умножение) со следующей группой чисел :11011 ²(двойка с низу) и 1010²(двойка с низу ОЧЕНЬ...
Nikitaue
18.04.2020 22:27
5. Определить порты к которым подключены гироскопический датчики(1,2,3,4) 1)2)...
Qwtyt
18.05.2023 06:03
Для изготовления одного чайника нужно P граммов, одной тарелки - C граммов, одной чашки - K граммов сырья. Составьте программу, которая рассчитывает, сколько сырья требуется...
kuznetsovakristina
29.08.2020 08:18
Кто нибудь если не трудно...
spaisminGena
31.05.2021 16:40
написать программу на Python: Вывести удвоенные значения всех чисел от 1 до N,(N- целое число, введенное с клавиатуры...
Julia5415613614
12.05.2022 20:01
Выбери правильную запись присваивания значения переменной. (2 б) а) 7= а; б) мир=85; в) а = 7; г) а := 77; д) mir= мама ; Найди соответствие типа величины и ее примера. (4б)...
letujio
05.10.2020 03:12
Написать программу python для вывода таблмцы умножения на 5 до 10 включительно с функцией range...
cracavica211220
22.06.2020 05:44
1. Как добавлять эффекты анимации? 2. Сколько создания эффектов анимации существует? Назови их. 3. Как с анимации можно перемещать изображение в указанном направлении? 4. Зачем...
mark123445
02.10.2020 04:55
Укажите какое програмное обеспечение людям в следуюших ситуациях...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses Crt;
const g = 9.81;
var g1, g2, g3 : real;
begin
ClrScr;
Write (' Введите g1 ='); ReadLn(g1);
Write(' Введите g2 ='); ReadLn(g2);
Write (' Введите g3 ='); ReadLn(g3);
WriteLn;
if (g1=g) or (g2=g) or (g3=g) then WriteLn(' Есть!')
else WriteLn(' Отсутствует...');
ReadLn;
end.