2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Program konfeti; Uses CRT; Var x,m:real; {x-цена за килограмм, m-текущая масса} Begin CLRSCR; m:=1.2; Write('Введите цену за килограмм конфет:'); Readln(x); While (m<2.1) do Begin Writeln('Цена за ',m:0:2,' кг конфет равна ',m*x:0:2,' рублей'); m:=m+0.2 End; Readln; End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
