1.
var
n,i,k,sum,g:integer;
begin
readln(n);
g:=n;
while n<>0 do begin
g:= g div 10;
k +=1;
end;
for i:=1 to k do begin
g:= n mod 10;
sum:= sum + g;
n:=n div 10;
end;
if sum> 10 then
writeln('верно')
else
('неверно');
end.
2.
var
n,i,k,p,h,g:integer;
begin
readln(n);
g:=n;
while n<>0 do begin
g:= g div 10;
k +=1;
end;
p:=n mod 10;
n:=n div 10;
for i:=1 to k-1do begin
g:= n mod 10;
if g = p then
h += 1;
n:=n div 10;
end;
writeln(h);
end.
3.
const
n=10;
var
a:array[1..n]of integer;
i,sum:integer;
begin
a[n]:=0;
for i:=1 to 9 do
readln(a[i]);
for i:=1 to n do
sum:=sum+a[i];
writeln(sum);
end.
4.
var
n:integer;
begin
readln(n);
while n<>0 do begin
n:=n div 10;
k += 1;
end;
if k = 4 then
writeln('число четырехзначное')
else
writeln('число не четырехзначное');
end.
5.
var
a:array[1..10]of integer;
i:byte;
begin
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do begin
if a[i] = 2 then
writeln('да есть');
break;
end;
end.
Пишешь в первой строке: х, затем числа, для которых посчитать
во второй строке: у, затем:
=ЕСЛИ(B1<-1;-4*B1+2+SIN(B1);ЕСЛИ(B1<0;ABS(B1);2*B1*LN(B1+1)))
<span>Приклад 1. Скласти
алгоритм обчислення і роздрукування значення виразу у = (Ax+B)(Cx+D). 1. Ввести значення А, В, С, D, х. 2. Обчислити у = (Ax+B)(Cx+D). 3. Роздрукувати у. <span>4. Процес обчислення завершити.</span></span>
<span><span>Пусть N – количество букв
в номере. Тогда существует 5^</span></span>n *10^<span><span>4 различных
номеров. По условию, должно быть выполнено 5^n*10^4>1000000,
т.е. 5^n>100. Отсюда N=3 .</span></span>
Способ 1: Вам нужно зайти в меню «Пуск», в строке поиска написать команду «CMD» и нажать клавишу «Enter». Откроется окно терминала, где вам нужно ввести команду «ipconfig» и вновь нажать клавишу «Enter», после чего откроется список всех ваших сетевых подключений.
В этом списке вы увидите и ваш ip адрес и, соответственно, маску подсети. Способ 2: Заходите в Панель управления\Сеть и Интернет\Сетевые подключения, выбираете ваше подключение и кликом правой кнопкой мыши переходите в графу «Состояние». В открывшемся окне кликните по клавише «Сведения». Откроется новое окно вашего подключения, где будут указаны ваш ip и маска подсети. Еще один способ узнать маску подсети по ip адресу: кликните по значку подключения в правом нижнем углу монитора и выберите «Центр управления сетями». Затем кликните в открывшемся окне «Изменение параметров адаптера» и дальше действуете аналогично вышеописанному варианту: начиная с выбора вашего подключения.
