Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Очень срочно помогите пожалуйста
Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, ..., 10 кг конфет. сделать с тремя циклами через паскаль, с комментариями
While
Repeat
For

Ответ оставил Гость

Program Prices;

const  max : integer = 10;

var
price : real;
i : integer;

begin

{ С использованием цикла FOR }
writeln(Используем цикл FOR);
write(Введите стоимость 1-го кг конфет: );
readln(price);
for i:=1 to max do
begin
writeln (i, кг. конфет стоят: , i*price:7:2);
end;
 
{ С использованием цикла REPEAT } 
i:=1;
writeln;
writeln(Используем цикл REPEAT);
repeat
writeln (i, кг. конфет стоят: , i*price:7:2);
i:=i+1;
until(i>max);
 
{ С использованием цикла WHILE } 
i:=1;
writeln;
writeln(Используем цикл WHILE);
while(i<=max) do begin
writeln (i, кг. конфет стоят: , i*price:7:2);
i:=i+1;
end;
end;