Ответы
Ответ дал:
0
var a,k: real;
begin
while k<15 do begin
k:=k+1;
a:=(64-(k*4))/2;
writeln(k,' ',a);
end;
end.
begin
while k<15 do begin
k:=k+1;
a:=(64-(k*4))/2;
writeln(k,' ',a);
end;
end.
Похожие вопросы
2 года назад
2 года назад
9 лет назад
10 лет назад