цикл for, таблица стоимости

@kevin Randleman · Регистрация: 04.10.2011

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

напечатать таблицу стоимости 50,100,150....1000 грам сыра, (стоимость одного кг сыра вводиться с клавиатуры).
если можно покажите несколько видов решения подобных задач, интересно.. заранее спасибо!

@log(n) · 20.10.2011, 19:24

Pascal

uses crt;
var s:real;i:integer;
begin
write('Введите стоимость сыра (руб)  : ' );
readln(s);
s:=s/20; 
for i:=1 to 20 do
writeln(i*50,' грамм сыра стоит ',i*s:0:2,' рублей');
end.

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

Pascal

uses crt;
var j:real;kilo,i:integer;
begin
readln(kilo);
j:=0.05;
for i:=1 to 20 do begin
writeln('Стоимость ', j*1000:3:0, ' грамм = ', j*kilo:5:2);
j:=j+0.05;
end;
end.

@kevin Randleman 17 / 5 / 1 Регистрация: 04.10.2011 Сообщений: 17
		1
	цикл for, таблица стоимости 20.10.2011, 19:14. Показов 1397. Ответов 1 Метки нет (Все метки) напечатать таблицу стоимости 50,100,150....1000 грам сыра, (стоимость одного кг сыра вводиться с клавиатуры). если можно покажите несколько видов решения подобных задач, интересно.. заранее спасибо! 0

	20.10.2011, 19:24

Опции темы

цикл for, таблица стоимости

Решение