Программа запускалась в PascalABC.NET
Объяснение:
const
C = 3.2;
var
y,M:real;
begin
M:=0.1;
while M <= 15.8 do
y:=M+C;
writeln('M = ',M,' Y = ',y);
M:=M+0.2;
end;
end.
Программа запускалась в PascalABC.NET
Объяснение:
const
C = 3.2;
var
y,M:real;
begin
M:=0.1;
while M <= 15.8 do
begin
y:=M+C;
writeln('M = ',M,' Y = ',y);
M:=M+0.2;
end;
end.