Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, ..., 10 кг конфет.
5-9 класс
|
Program p1
program ads; var i :integer; z,x,a :real; begin writeln('Введи цену за килограмм'); readln(z);//Узнаём цену за 1 кг. a:=0.1;//начальный вес 100 грамм. for i :=1 to 10 do begin write('Цена за '); write(a:5:2); //Выводим вес x:=z*a;//Высчитываем цену за a грамм a:=a+0.1;//прибавляем 100 грамм write(' килограмм равна - '); write(x:5:2);//Выводим цену за вес writeln; end; readln; end.
Другие вопросы из категории
Петя,Ваня и Саша учатся в одной начальной школе, но в разных классах. Петя перешёл в тот класс, в котором в прошлом году учился Саша. Через год Ваня перейдёт в тот класс,который в этом году закончит Петя. В каком классе учится каждый из мальчиков?
В таблице нужно поставить плюся и минусы.
Помогите пожалуйста, кто чем может!
ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!! ОЧЕНЬ НАДО, СРОЧНО!!!!!
Читайте также
B (A < B). Найти сумму всех целых чисел от A до B включительно.
ПОМОГИТЕ ПОЖАЛУЙСТААААААААА ОЧЕНЬ СРОЧНО
Дано вещественное число - цена 1 кг конфет. Вывести стоимость 0.1,0.2...,1кг конфет
записать программу в ПАСКАЛЬ(!)
Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет.
И если не сложно,то с подробными объяснениями!!!
Всем заранее спасибо!!!)