For6. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1.2, 1.4, …, 2 кг конфет.
5-9 класс
|
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program konfeti;
Uses
CRT;
Var
x,m:real; {x-цена за килограмм, m-текущая масса}
Begin
CLRSCR;
m:=1.2;
Write('Введите цену за килограмм конфет:');
Readln(x);
While (m<2.1) do
Begin
Writeln('Цена за ',m:0:2,' кг конфет равна ',m*x:0:2,' рублей');
m:=m+0.2
End;
Readln;
End.
Другие вопросы из категории
Простое условие. Составной оператор.
Полная форма условного оператора
Составьте программу, которая выводит на экран пример
на умножение двух целых чисел, запрашивает ответ пользователя, проверяет его и
выводит соответствующее сообщение: «Правильно!» или «Вы ошиблись», а также
правильный результат.
числа. Проверить, равно ли второе число нулю. Если да, то вывести на экран
фразу: «На ноль делить нельзя!» Если нет, то найти их частное.
буду благодарна.
компьютера ( на странице размещается 40 строк по 60 символов в каждой строке , а для хранения одного символа требуется 8 битов)? Какой была бы высота такой стопки страниц, если высота стопки из 100 страниц равна 1 см?
Читайте также
B (A < B). Найти сумму всех целых чисел от A до B включительно.
ПОМОГИТЕ ПОЖАЛУЙСТААААААААА ОЧЕНЬ СРОЧНО
Дано вещественное число - цена 1 кг конфет. Вывести стоимость 0.1,0.2...,1кг конфет
записать программу в ПАСКАЛЬ(!)
Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет.
И если не сложно,то с подробными объяснениями!!!
Всем заранее спасибо!!!)