Var a:real;
Begin
Write('a = ');ReadLn(a);
WriteLn('S = ',a*a);
End.
Var
A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
if A > 0 then A:=A+1;
WriteLn(A)
End.
самая простейшая модель это глобус, он доказывает что земля круглая, на ней есть моря, океаны, материки. Для проверки гипотез и получения новых знаний чаще всего используются компьютерные модели объектов и явлений, например 3d карта земли помогает спрогнозировать погодные явления
Цифр не видно, но ответ 25 (уже был такой вопрос)
Var a,b,c,y1,y2,d,i:real;
begin
read(a,b,c);
d:=b*b-4*a*c;
if d>0 then
begin
y1:=(-1*b+sqrt(d))/(2*a);
y2:=(-1*b-sqrt(d))/(2*a);
if y1>=0 then
begin
writeln(sqrt(y1));
writeln(sqrt(y1)*-1);
end;
if y2>=0 then begin
writeln(sqrt(y2));
writeln(sqrt(y2)*-1);
end;
end else
if d=0 then
begin
y1:=(-1*b)/(2*a);
if y1>=0 then begin
writeln(sqrt(y1));
writeln(sqrt(y1)*-1);
end;
end
else
writeln('Корней нет');
<span>end.</span>