Var n, i, sum: integer;
begin
read(n);
sum := 0;
for i:=1 to n do
sum := sum + (2*i-1);
writeln(sum);
end.
1.
var a,c:integer; m:set of 0..9; b:boolean;
begin
readln(a);
m:=[];
b:=false;
while a>0 do
begin
c:=a mod 10;
if c in m then b:=true;
m:=m+[c];
a:=a div 10;
end;
if b then writeln('Да')
else writeln('Нет');
end.
Пример:
121
Да
2.
var a,b,c:integer;
begin
readln(a);
c:=a;
b:=0;
while c>0 do
begin
b:=b*10+c mod 10;
c:=c div 10;
end;
if a=b then writeln('перевертыш')
else writeln('Нет');
end.
Пример:
121
перевертыш
Var a,b,c,m: integer;
begin
readln (a,b,c);
m:=a;
if b<m then m:=b;
if c<m then m:=c;
if m mod 2 = 0 then write('чётное, ') else write('нечётное, ');
if m = 0 then write('ноль') else
if m > 0 then write('положительное') else write('отрицательное')
end.
Для перевода в двоичную систему делим число на 2 и записываем остатки от деления
285/2=142 остаток 1
142/2=71 остаток 0
71/2=35 остаток 1
35/2=17 остаток 1
17/2=8 остаток 1
8/2=4 остаток 0
4/2=2 остаток 0
2/2=1 остаток 0
1/2=0 остаток 1
записываем остатки снизу вверх
285₁₀=100011101₂
для перевода десятичного числа в восьмеричную систему счисления проделываем те же операции, только делим на 8
285/8=35 остаток 5
35/8=4 остаток 3
4/8=0 остаток 4
записываем ответ снизу вверх
285₁₀=345₈
для перевода десятичного числа в шестнадцатеричную систему делим соответственно на 16
285/16=17 остаток 13, что в шестнадцатеричной системе соответствует букве D
17/16=1 остаток 1
1/16=0 остаток 1
ответ 285₁₀= 11D₁₆
Ответ:а) Ты общаешься с друзьями и получаешь новую информацию о их интересах например.
В школе ты получаешь новую новую информацию.
б)Когда один из твоих друзей или знакомых сообщил что какой то твой друг соврал тебе.
Или когда в школе ты получил информацию и тебе через год объясняют эту же тему но добавляется новая информация (Например: про расстояние)
( ПРИМЕРОМ (Б) Я НЕ КОГО НЕ ХОЧУ ОБИДИТЬ.)