Паскаль.Напечатать таблицу стоимости 100,200,300....., 2000 г конфет(стоимость 1 кг конфет вводится с клавиатури)...
Паскаль.Напечатать таблицу стоимости 100,200,300....., 2000 г конфет(стоимость 1 кг конфет вводится с клавиатури)...
Гость
Ответ(ы) на вопрос:
Гостьvari:integer;
c:real;
begin
readln(c);
Repeat
i:=i+100;
writeln(i,'g: ',c*0.001*i);
until i>=2000
end.
Не нашли ответ?
Похожие вопросы