Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Thfhgdrhd
24.02.2023 23:29 •
Информатика
Напечатать таблицу соответствия между весом в фунтах и весом в килограммах 1, 2, 10 фунтов (1 фунт= 453 гр.) в pascal. abc обязательно должна выводиться таблица.
Показать ответ
Ответ:
alibekovberkut
08.10.2020 11:21
Var i: integer;
begin
for i:=1 to 10 do
writeln (i:2,' фунт (-а,-ов) равно ',i*453/1000:0:3,' килограмма')
end.
или
var i: integer;
begin
writeln ('Фунты Килограммы');
for i:=1 to 10 do
writeln (i:3,i*453/1000:15:3)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
opakp9726
09.06.2023 01:33
Створіть проект,у якому можна обчислити кількість двоцифрових чисел серед чисел,перше з яких дорівнює 10,а кожне наступне більше від попереднього на задане додатне число...
бакыт6
15.01.2023 09:37
Построить таблицу истинности для следующего выражения: (А & B) v C...
elenabeloglazo
02.09.2022 13:21
Страссировочной таблицы определите, сколько раз выполнится тело цикла в следующем алгоритме: a : = 1; b : = 1; while a+b 8 do begin a : = a + 1; b : = b + 2 end....
asanovaabibe20
26.11.2022 12:16
Запиши верный ответ без пробел write () h=34...
sonka1001p0arxp
25.03.2023 18:27
Запиши верный ответ (без пробелов). write ( h = , h); для h=49 на экране будет ....
yanochka13kol
16.04.2022 21:14
Напишите программу, которая выводит на экран трехзначные числа, кратные 3. программа на pascalabc с массивом....
DeFauLD
16.04.2022 21:14
Написать программу вычисления стоимости покупки с учётом скидки. скидка в 10% предоставляется, если сумма покупки больше 1000 руб....
Aizere1111
30.01.2020 06:51
Найти разность двух наименьших из трех чисел c++. завтра зачет и надо сдать будет....
weee2004
30.01.2020 06:51
Какая шина используется для подключения принтеров, сканеров, цифровых камер и других периферийных устройств?...
Kadilya
08.03.2022 22:05
Необходимо получить в переменной а число 64 используя только операцию умножить три раза нельзя использовать константу ещё две колонны а: =2...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
for i:=1 to 10 do
writeln (i:2,' фунт (-а,-ов) равно ',i*453/1000:0:3,' килограмма')
end.
или
var i: integer;
begin
writeln ('Фунты Килограммы');
for i:=1 to 10 do
writeln (i:3,i*453/1000:15:3)
end.