Напечатать таблицу стоимости 50, 100, 150, .... 1000 г сыра. Стоимость 1 кг вводится с...

Question

Напечатать таблицу стоимости 50, 100, 150, .... 1000 г сыра. Стоимость 1 кг вводится с клавиатуры

Answer 1

program seee;
uses crt;
var p,b,c:real;
i,v:integer;
begin
clrscr;
readln(p);
writeln;
writeln('mass price ');
writeln;
while v<>1000 do
begin
v:=v+50;
writeln(v,'g ',v*p/1000:2:2);
end;
readkey;
end.