Написать программу в паскале
10-11 класс
|
program zadacha_na_otrezki;
uses crt;
var a,b,i,x:integer;
m,t,n:real;
begin
clrscr;
readln(a,b);
m:=32000;
for i:=a to b do begin
for x:=0 to 4 do begin
n:=i+0.2*x;
t:=(sqrt(sqr(n)+4))/(sqr(n)-3*x);
if t<m then begin
m:=t;
end;
end;
end;
writeln(m:4:2);
end.
Другие вопросы из категории
в двоичную и десятичную системы счисления :
АС873,Е2
подсчитать количество чисел,не принадлежащих промежутку (х,у]
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
http://primat.org/index/0-128 вот сайт что бы написать программу.
13.
Нужно написать программу на цикле с предусловием, на Паскале.
Ввести с клавиатуры натуральное число.написать программу, которая определяет, кратна ли сумма его цифр 6.