Вопрос по информатике:
Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, ..., 10 кг конфет.
Program p1
var i,s:real
Begin
WriteLn ('введите стоимость 1 кг конфет')
For i:=1 to 10 do
WriteLn дальше помогите
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 21.08.2015 10:21
- Информатика
- remove_red_eye 18047
- thumb_up 29
Ответы и объяснения 1
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.
- 22.08.2015 00:08
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.