Дано вещественное число – цена за 1 кг конфет. Вывести стоимость 0.1кг, 0.2кг, 0.3кг .. 0.9 кг конфет (использовать цикл repeat)
Ответы
Ответ дал:
0
program;
var
C:Real;
i:Integer;
begin
Write('Введите стоимость 1 кг конфет: ');
Readln(C);
Writeln('Cтоимость конфет: ');
For i:=1 to 10 do Writeln(i/10,'кг: ',i/10*C);
end.
var
C:Real;
i:Integer;
begin
Write('Введите стоимость 1 кг конфет: ');
Readln(C);
Writeln('Cтоимость конфет: ');
For i:=1 to 10 do Writeln(i/10,'кг: ',i/10*C);
end.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад