Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Alsari
16.01.2021 20:15 •
Информатика
Напишите программу пересчёта расстояния их километров в вёрсты (1 верст = 1066,8 м). для паскаль abc
Показать ответ
Ответ:
znanijacom77
06.07.2020 10:34
Var a:real;
begin
writeln('Введите расстояние в километрах');
readln(a);
a:=a*1000/1066.8;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
аля722
01.05.2020 08:11
Флеш-карта имеет объём 16 гбайт. рукопись автора содержит 2048 страниц. на каждой странице 1024 строк, в каждой строке 64 символа. каждый символ кодируется 16 битами. кроме того, рукопись...
valu49
04.01.2022 09:22
Вкоридоре лежат принадлежащие пришедшим на праздник четырем девочкам сумочки (розовая, голубая, черная и белая) и зонтики (розовый, голубой, черный и белый). девочек зовут маша, саша,...
Marsel2V
04.01.2022 09:22
Дан список систем счисления: 2-ая, 8-ая, 10-ая, 16-ая. в каких системах счисления отсутствует запись числа набором символов 276? , решение с объяснением....
gudishonozvm3p
01.08.2021 02:46
О.Наведіть класифікацію СКБД за доступу до бази даних ...
vadimkvitko20
19.05.2021 17:43
Какие команды и инструменты были использованы? 1Елхан нарисовал компьютер в графическом редакторе Paint?2Мадина создала рисунок на тему «Осень» в графическом редакторе Paint и сохранила...
lidiyamartin9
08.08.2022 22:42
по информатике по информатике >...
kir28082000
19.05.2020 12:29
Создать файл, содержащий данные о фирмах: название фирмы, фамилия инициалы владельца (одно поле), адрес (три поля: город, улица, дом),телефон. Переписать в текстовый файл и вывести...
regroom
04.02.2023 21:11
Составить программу ввода с клавиатуры N целых чисел Program P1; const n=5; var x,i:integer; begin for i:=1 to n do readln(x); end....
зуляжансая86
26.03.2023 15:41
Здравствуйте,у меня проблема с компьютером.Дело в том,что когда при запуске ноутбука (Packard Bell),вылазит окно с восстановлением системы.Оно вылазит при любой попытке запуска.В интернете...
Trap00ra
07.09.2022 04:38
Напишите программу на Pascal: Напишите среднее значение целых положительных чисел, которые вводятся с клавиатуры (окончание ввода-ввод числа 0)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('Введите расстояние в километрах');
readln(a);
a:=a*1000/1066.8;
writeln(a);
end.