Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
angelenok1840
07.01.2023 04:17 •
Информатика
Нужна программа на паскале для вычисления скорости свободного подения
Показать ответ
Ответ:
jennie082017
06.10.2020 11:52
Const Shag = 0.5;
Vrem = 10;
Var t : real;
Function Vpad (t : real) : real;
Begin
Vpad:=(9.8)*t End;
BEGIN
t:=0;
repeat
writeln(Vpad(t) :10:10);
t:=t+shag
until t > vrem
END.
0,0
(0 оценок)
Популярные вопросы: Информатика
DashaRossgard
03.12.2022 04:03
Як називається презентація, що призначена для демонстрації фотографій? а фотокнига б фотоальбом в фоторобота г зображення...
dshaa14
17.07.2022 20:01
Компьютерные сети. такое : проведите исследование и выясните, что понимают под термином компьютерные сети . только не надо копировать из вики, своими словами, так как вы понимаете,...
ZlOdEyKaTaMaRa
23.10.2020 02:47
Дана строка. вывести слова содержащие ар использовать процедуру разбиения строки на слова. написать на языке pascal....
Alusa666
31.07.2020 23:37
Имеется чан объёмом 1000л . автоматическое устройство , обслуживающее этот чан имеет два допустимых действия: долить в чан ещё 1 л воды ; долить в чан столько воды , сколько в нём...
petrovskayaanna
26.03.2023 23:24
Что такое сетевой этикет? 1. правила поведения за компьютерным столом 2. правила поведения в интернете 3. правила пользования информацией 4. закон, касающийся интернет...
niggaeasyreal
19.03.2023 10:11
Определите отношения между понятиями и изобразите эти отношения. понятия ( космическая система, земля, марс, солнце, планета, солнечная система) если не знаете как делать или не...
niga2345
19.03.2023 10:11
1.для хранения растрового изображения размером 128х128 пикселей отвели 4 кб памяти.каково максимально возможное число цветов в палитре изображения. 2.в процессе преобразования растрового...
AshesSpy
19.06.2022 02:07
Зделайте краткий перезказ текста плз are you happy with the way you are taught english? interviewer: anna, you have been learning english for almost five years and you are planning...
Aru212
19.06.2022 02:07
30 пiч складаэться з 300 цеглин, мама кожноï 3,5 кг яку кiлькiсть теплоти вiддасть пiч у наслiдок остигання (охолоджування) вiд 75°с до 25°с.питома теплоэмнiсть цеглини = 880 дж/кг°с...
XiaomiK
19.06.2022 02:07
Замените x и или y натуральным числом так чтобы получились верные равенства номер 316 x/48 = 3/8...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Vrem = 10;
Var t : real;
Function Vpad (t : real) : real;
Begin
Vpad:=(9.8)*t End;
BEGIN
t:=0;
repeat
writeln(Vpad(t) :10:10);
t:=t+shag
until t > vrem
END.