Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Vika20040406
07.04.2020 17:02 •
Информатика
Дано вещественное число – цена 1кг конфет. вывести стоимость 0.1, 0.2, … , 1кг. входные данные: ввести одно вещественное число a (1< =a< =100). выходные данные: вывести стоимость 0.1, 0.2, … , 1кг конфет с точностью до 4 цифр в дробной части.
Показать ответ
Ответ:
125DVV
21.06.2020 04:50
Var a, i: real;
begin
readln(a);
while (i <= 1) do
begin
i := i + 0.1;
writeln(i, ' kg -> ', i * a:4:4, ' y.e.');
end;
end.
:))
0,0
(0 оценок)
Популярные вопросы: Информатика
AndreyDixord
17.03.2020 14:47
Написать презентацию по информатике на тему поколения эвм ...
fatyaa22
26.02.2020 03:30
Информатика паскаль, даны целые положительные числа a и b. найти их наибольший общий делитель (нод), используя алгоритм евклида: нод(a, b) = нод(b, a mod b), если b = 0; нод(a,...
Lool199865
13.07.2022 09:50
Сумма 5 рублей положена в сбербанк при этом ежегодный прирост состовляет p процентов и считается непрерывным.определить через сколько лет первоначально сумма увеличиться в n раз...
aleksapopov1
27.05.2023 15:30
Запутался: ) нужно составить программу на языке pascal, которая выявляет-есть ли в трёхзначном числе повторяющиеся цифры(пример, 122---есть. 123---нет)...
N4kes
14.01.2023 16:50
Составь программу вывода на экран рисунка бабочки из псевдографических символов...
Egor456803
02.02.2020 00:07
Відкрийте табличний процесор excel 2007. створіть таблицю для обчислення довжин діагоналей 5 прямокутників за даними довжинами їх сторін. установіть формат результатів обчислення...
yashchenko04
08.12.2022 14:14
Ну ,запишите только дано позязя там еще вначале 10 кб...
phyf
01.06.2022 09:27
Создайте примерно по образцу, такое же только с другими значениями, , нужно на завтра иначе 2/2...
alena12022004
29.05.2023 05:42
Цикл с параметром (for) 1. составить алгоритм табулирования функции y = 1 на отрезке [a; b]. 2x значения a, b могут изменяться. 2. составить алгоритм табулирования функции y =...
Lizzik657
09.02.2020 00:14
Два текста содержат одинаковое количество символов. первый текст составлен из символов алфавита мощностью 16, а второй текст – из символов алфавита мощностью 256. во сколько раз...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a);
while (i <= 1) do
begin
i := i + 0.1;
writeln(i, ' kg -> ', i * a:4:4, ' y.e.');
end;
end.
:))