Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, ..., 10 кг конфет. Сделать с тремя циклами на Паскале, с комментариями:
While
Repeat
For

Во всех вариантах сначала вводится цена одного килограмма конфет, затем выводится стоимость от \(1\) до \(10\) кг.

Цикл While:
program CandyWhile;
var price, cost: real;
    kg: integer;
begin
  readln(price); { цена 1 кг }
  kg := 1;
  while kg <= 10 do
  begin
    cost := price * kg;
    writeln(kg, ' кг: ', cost:0:2);
    kg := kg + 1;
  end;
end.

Цикл Repeat:
program CandyRepeat;
var price, cost: real;
    kg: integer;
begin
  readln(price); { цена 1 кг }
  kg := 1;
  repeat
    cost := price * kg;
    writeln(kg, ' кг: ', cost:0:2);
    kg := kg + 1;
  until kg > 10;
end.

Цикл For:
program CandyFor;
var price, cost: real;
    kg: integer;
begin
  readln(price); { цена 1 кг }
  for kg := 1 to 10 do
  begin
    cost := price * kg;
    writeln(kg, ' кг: ', cost:0:2);
  end;
end.

0 0 Пожаловаться