Var z: real; i: integer; begin writeln('введите цену одного килограмма и нажмите < enter> '); writeln(' (копейки от рублей отделяйте точкой) '); readln(z); writeln('вес (граммов) cтоимость (руб.) '); for i: =1 to 10 do writeln(i*100: 13,z*i/10: 10: 2); readln end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
