Var s,k: real;
i:integer;
Begin
Write('Введите стоимость 1 кг конфет: ');
Readln(s);
for i:=1 to 10 do begin
k+=1;
Writeln('Стоимость ', k*0.1, ' кг конфет = ', k*0.1*s);
end;
end.
1) <span>D:\Материалы к урокам\10 класс\Лекции\Введение
2) </span>make.cpp, name.c, age.pc, name.cpp >>> *a?e.*
Ответ:
program Calc;
var
k, x, a, c, y: Double;
begin
Write ('k, x, a, c = ');
ReadLn (k, x, a, c);
if x > 0 then begin
y := k * Sqr (x);
WriteLn ('y = ', y);
end else if a + c <> 0 then begin
y := - x / (a + c);
WriteLn ('y = ', y);
end else
WriteLn ('деление на ноль');
ReadLn;
end.
Не очень ровно..) думаю разберешься