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

romaberduk03 romaberduk03    3   08.03.2019 04:00    9

Ответы
blackmaster2442 blackmaster2442  24.05.2020 04:51

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика