Question

Решить задачу с помощью программы REPEAT. Килограмм творога стоит 300 тенге нужно найти стоимость творога 100 гр, 200 гр, 300 гр, 400 гр, и так до 1000 гр.

Answer 1

Var a : integer;
begin
repeat
a:=a+100;
writeln(a*0.3, ' руб за ', a, ' гр')
until a = 1000
end.