Паскаль.Напечатать таблицу стоимости 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.