Var x,y,a,b,h,min,max:real; i:integer;
begin
readln(a,b,h);
x:=a; y:=2*x*x-0.5*x+5;
min:=y; max:=y;
writeln(x:4:1,' ',y:6:2);
for i:=1 to round((b-a)/h) do
begin
x:=x+h;
y:=2*x*x-0.5*x+5;
writeln(x:4:1,' ',y:6:2);
if y<min then min:=y;
if y>max then max:=y;
end;
writeln('min = ',min:6:2,' max = ',max:6:2);
end.
Пример:
-2 2 0.5
<span>-2.0 14.00
-1.5 10.25
-1.0 7.50
-0.5 5.75
0.0 5.00
0.5 5.25
1.0 6.50
1.5 8.75
2.0 12.00
min = 5.00 max = 14.00</span>
Дано:N=32 k=120 I=?
Решение I=i*k
32=2⁵ значит i = 5
I = 120*5=600бит = 75байт
Региональные компьютерные сети.
Локальные сети не позволяют обеспечить совместный доступ к информации пользователям, находящимся, например, в различных частях города. На помощь приходят региональные сети, объединяющие компьютеры в пределах одного региона (города, страны, континента).
Var a,b,c:integer;
k:boolean;
begin
readln(a);
readln(b);
readln(c);
k:=false;
if (a mod 3=0) and (a mod 10=5) then
begin;
writeln(a);
k:=true;
end;
if (b mod 3=0) and (b mod 10=5) then
begin;
writeln(b);
k:=true;
end;
if (c mod 3=0) and (c mod 10=5) then
begin;
k:=true;
writeln(c);
end;
if k=false then writeln('НЕТ');
<span>end.</span>