Как называется кабель, применяемый для подключения компьютеров к концентраторам и коммутаторам
Ответы на вопрос:
1)
var a,b,x,y: longint;
begin
write("vvedite nachalo i konec otrezka: ");
read(a,b);
write("vvedite x: ");
read(x);
y: =sqr(x)*x;
if (y> a)and(y< b) then write("na dannom otrezke znachenie funkcii ravno ",y) else write("na dannom otrezke net reshenii");
readln
end.
2)
var c,i: byte;
begin
for i: =49 to 215 do
if (i mod 4=0) then c: =c+1;
write("kolichestvo chisel, kratnyh 4 na zadannom promezhutke ravno ",c);
readln
end.
3)
var i: integer;
p: longint;
for i: =1000 to 9999 do
if (i mod 10=3) then p: =p*i;
write("proizvedenie chetyrehznachnyh chisel, okanchivaushihsya na 3 ravno ",p);
readln
end.
4)
var i: byte;
c: integer;
begin
for i: =221 to 778 do
if ((i mod 10)=(i div 100)) then c: =c+1;
write("kolichestvo chisel ravno ",c);
readln
end.
5)
var i: longint;
c: integer;
begin
for i: =10000 to 99999 do
if ((i mod 10)=(i div 10000)) mod 100)div 10)=((i div 1000)mod 10)) then c: =c+1;
write("kolichestvo chisel ravno ",c);
readln
end.
Популярно: Информатика
-
444346823476339928.05.2021 13:50
-
ДимаМасленников26.04.2020 01:37
-
katyarakushina0316.12.2021 06:31
-
aimsen26.03.2020 16:26
-
oleshckewitchd26.11.2021 00:23
-
katy123123123329.06.2020 17:42
-
mariyasidorova130.06.2021 20:55
-
alekszhirnovp06n4r23.06.2020 06:06
-
annakostomarova25.09.2022 18:09
-
hnbgh7hyng10.05.2020 12:03