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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
