Вывести стоимость конфет

@D1zz1 · Регистрация: 05.06.2011

Студворк — интернет-сервис помощи студентам

Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, … , 10 кг конфет.
нужно вывести список значений цен

@Vovcheg · 16.06.2011, 11:30

Pascal

uses crt;
const n=10;
var i,cen:integer; a:array[1..n] of integer;
begin
  clrscr;
  write('Введите цену 1 кг конфет: '); readln(cen);
  for i:=1 to n do
    begin
      a[i]:=i*cen;
      writeln('Стоимость ',i, ' кг - ',a[i]);
    end;
  readln
end.

@D1zz1 0 / 0 / 0 Регистрация: 05.06.2011 Сообщений: 5
		1
	Вывести стоимость конфет 16.06.2011, 10:55. Показов 1406. Ответов 1 Метки нет (Все метки) Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, … , 10 кг конфет. нужно вывести список значений цен 0

Опции темы

Вывести стоимость конфет

Решение