составить программу,которая при цене продукта за 1 кг. распечатывает в строчку стоимость от 0.1 до 0.9 кг.
10-11 класс
|
var
price:real;
i:integer;
begin
write('Введите цену за килограмм '); readln(price);
for i := 1 to 9 do
writeln('Стоимость за ', i / 10, ' кг составляет ', i / 10 * price);
end.
var
price: real;
i: integer;
begin
write('Цена = ');
readln(price);
for i := 1 to 9 do
writeln(i / 10, ' кг за ', i / 10 * price:5:2,'$');
end.
Другие вопросы из категории
А)45А
В)2000
С)АВС5
D)12СВА
если эти отрезки позволяют его построить. Написать программу на паскале только на паскале и не на другом языке!!!
1. Какой вид имеет обычная гиперссылка?
2. Какие типы гиперссылок вы знаете?
3. Как сделать ссылку на почтовый ящик: ира собака точка мейл точка ру ?
4. Как изменить размер файла изображения?
5. Какой атрибут тег имж задает текст для всплывающей
подсказки.
6. Что произойдет, если файл на который вы ссылаетесь
отсутствует?
Читайте также
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
которых больше 5 и меньше 15
на противоположный.
выведите на экран исходный и полученный массивы
очень прошу
и произведение элементов с нечетными значениями