Написать программу, которая выводит на экран таблицу стоимости

@romera · Регистрация: 02.06.2011

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

Написать программу, которая выводит на экран таблицу стоимости, например, яблок в диапазоне от 100 г до 1 кг с шагом 100. (Цену одного килограмма вводит пользователь.)

Добавлено через 8 минут
внимание

Добавлено через 19 минут
НУЖНА ПОМОЩЬ

@Daemon025 · 12.06.2011, 17:23

Pascal

program Jurec;
    uses crt;
    var i:integer;
        price:real;
begin
  ClrScr;
  Repeat
    Write('Öåíà 1êã: ');
    ReadLn(price);
  Until price > 0;
  ClrScr;
  
  WriteLn('     Öåíà    Êã');
  For i:=1 to 10 do
    WriteLn(price*i/10:7:0,' ðóá. ',i/10:0:1, 'êã');
    
  Readln;
end.

@romera 61 / 61 / 2 Регистрация: 02.06.2011 Сообщений: 86
		1
	Написать программу, которая выводит на экран таблицу стоимости 12.06.2011, 17:03. Показов 3357. Ответов 1 Метки нет (Все метки) Написать программу, которая выводит на экран таблицу стоимости, например, яблок в диапазоне от 100 г до 1 кг с шагом 100. (Цену одного килограмма вводит пользователь.) Добавлено через 8 минут внимание Добавлено через 19 минут НУЖНА ПОМОЩЬ 1

	12.06.2011, 17:23

Опции темы

Написать программу, которая выводит на экран таблицу стоимости

Решение