Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
1011021031041051
19.04.2020 10:31 •
Информатика
Тело падает с ускорением g. определить пройденный телом путь h-gt^2/2 после первой и второй секунд падения. нужно написать программу в паскале, .
Показать ответ
Ответ:
крыстя1
03.10.2020 23:44
/*Я, конечно, не тру физик, но пройденный телом путь вычисляется не так*/
//Pascal ABC.NET 3.2 сборка 1318
Const
g=9.832;
Var
h:real;
i:integer;
begin
readln(h);
for i:=1 to 2 do
writeln(h+(g*sqr(i))/2); //если что, поправите
end.
Пример ввода:
2
Пример вывода:
6.916
21.664
0,0
(0 оценок)
Популярные вопросы: Информатика
GiTToS
23.05.2021 03:12
6. Как называются устройства, не входящие в системный блок? A) периферийный b) внутренний c) встроенный d) на рабочем столе e) без вставок...
Татьяна201712
04.03.2023 04:54
Значение х задается в режиме диалога. использую только арифметические операции вычислить выражение y = 1 - 2*х + 3*x2 - 4*x3. разрешается использовать не более восьми операций...
lavrovheadshot
27.03.2020 04:52
Участникам олимпиады записано с всех символов марсианского алфавита: р! три! сколько информации оно несет? решите , скиньте фотку если можете...
ЛиЗоЧкА198
26.07.2020 01:30
Решить в питонеЧисла A и B (A...
МиленаГригорьева25
26.07.2022 00:18
Задано дані у вигляді (маса; об єм) n предметiв, які виготовлені з різніх матеріалів. Скласти програму, яка визначає максимальну щільність матеріалу. Підказка: щільність = маса...
virusvirus93
25.03.2020 18:25
решить в питоне Положительное число дается в диапазоне 100–999. Создайте программу, которая производит описание словаря в соответствии с введенным номером: 256 - «двести пятьдесят...
DanilNaumov
06.02.2022 14:24
1. Каким будет содержание пары регистров с данными 0001 0000 0000 1111 после инкрементирования? 2. Каким будет содержимое регистра с данными 0100 1011 после декрементирования?...
korola
14.08.2021 20:11
Составьте проект, в котором исполнитель нарисует отрезок длиной 50 шагов синим цветом, якшцо нажата клавиша стрелка вправо, или нарисуйте отрезок длиной 100 шагов красным цветом,...
uliana3447
05.05.2022 10:42
PASCAL Составьте программу, которая найдет отношение двух ВВЕДЕННЫХ ЧИСЕЛ. оно должно быть больше 1 по модулю и должно существовать, то есть нужно делить большее число на меньшее...
Т1216
21.07.2022 13:10
Запиши математическое выражение (24+x)2 на языке Паскаль. (При записи ответа используй прописные буквы)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Pascal ABC.NET 3.2 сборка 1318
Const
g=9.832;
Var
h:real;
i:integer;
begin
readln(h);
for i:=1 to 2 do
writeln(h+(g*sqr(i))/2); //если что, поправите
end.
Пример ввода:
2
Пример вывода:
6.916
21.664