Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
dashbrazhik
22.11.2022 17:09 •
Информатика
Напечатать таблицу перевода расстояний в дюймах в сантиметры (1 дюйм = 2,54 см) для значений от 1 до 10 дюймов с шагом 1
Показать ответ
Ответ:
ViktorNi
20.07.2020 23:24
Const D = 2.54;
var i: integer;
rez: real;
begin
for i := 1 to 10 do begin
rez := i * D;
writeln( i, ' см = ', rez, ' дюйм' );
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Lalalila03denchik
19.08.2020 04:29
Согласно правилам банка, кредит на покупку старого автомобиля выдаётся на `5` лет с годовой процентной ставкой `8,99%`, а кредит на покупку нового автомобиля выдается на...
ifreemadozzlqu
16.02.2020 22:13
Составить программу которая находит наименьшую сумму ряда 3+4+5+6+ превышающую число 15....
belok909
01.01.2022 14:43
Нужно сделать блок-схему и написать программу для: найти и распечатать в виде таблицы первые шесть членов последовательности, первый член которой х=7, а каждый следующий...
87373747373873
23.08.2022 21:58
Стестомвообще не понимаю как делать шаг -15. какое число будет выведено на экран после выполнения этого фрагмента программы? for i: =2 downto 0 do write(i); 6. какое число...
adilyabaxtigar
01.05.2023 09:12
Составить программу которая находит наименьшую сумму ряда 3+4+5+6+ превышающую число 15....
zybikrybik
07.06.2023 12:50
Сколько различных кодовых слов длиной 3 символа можно получить с алфавита {@, #, &}...
mango34
19.06.2022 15:39
Здравствуйте, не могу разобраться в задаче. Смотрел как решаються, но там слишком краткие ответы. Могли бы вы дать полный и пошаговый ответ по этой задаче. Можно даже пронумеровать,...
dkurmanbek
15.04.2022 19:18
Где робот должен повернуть оба колеса?...
ЖеньОК282
17.08.2022 21:39
Подобрать к словам родственные слова,в котором есть непроизносимыйсогласный звук...
10203040502017
17.08.2022 21:39
Тело массой 20г подвесило к пружине жесткостью 40н/м. на сколько удлинится пружина? напишите полное решение...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i: integer;
rez: real;
begin
for i := 1 to 10 do begin
rez := i * D;
writeln( i, ' см = ', rez, ' дюйм' );
end;
end.