// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var a,b,b1,c1:real;
Write('Введите b1 и c1: '); Read(b1,c1);
a:=0.3;
while a<=10.2 do begin<br> b:=sqrt(b1*c1+sqr(a))/(a*sqr(a));
Writeln('a=',a:4:1,' b=',b);
a+=1.2
end
end.
Тестовое решение:
Введите b1 и c1: 1.16 5
a= 0.3 b=89.8863785149007
a= 1.5 b=0.840667316095473
a= 2.7 b=0.18381397668166
a= 3.9 b=0.0772714754892418
a= 5.1 b=0.0425178510594072
a= 6.3 b=0.0269734389597432
a= 7.5 b=0.0186718393773587
a= 8.7 b=0.0137086409277832
a= 9.9 b=0.0105005974984954