Предмет: Информатика,
автор: Лёл
Напечатать таблицу стоимости 50, 100, 150, .... 1000 г сыра. Стоимость 1 кг вводится с клавиатуры
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Математика,
автор: royaalizade167
Предмет: Английский язык,
автор: vikki1980timo
Предмет: Русский язык,
автор: LifigNight
Предмет: Физика,
автор: John2011
Предмет: Математика,
автор: masha26bond