М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Aind1
Aind1
29.05.2022 20:25 •  Информатика

Var a, в : integer; визначте, чому дорівнює а після виконання операторів: в : = 3568; а : = в div 10 mod 10;

👇
Ответ:
Попорпо
Попорпо
29.05.2022
В чём прикол?

Вот:

B = 3568

В переменной A происходит следущее:

1) У переменной B убирается последняя цифра. 
B = 356
2) Из переменной B в переменную A записывается последняя цифра той переменной.
A = 6
4,6(60 оценок)
Открыть все ответы
Ответ:
ariko010
ariko010
29.05.2022

// №1 а)

 

function Fact(n:integer):integer;

var

  rez, i:integer;

begin

  rez := 1;

  for i := 1 to n do

    rez := rez * i;

  Fact := rez;

end;

 

function Pow(a, x:integer):integer;

var

  rez, i:integer;

begin

  rez := 1;

  for i := 1 to x do

    rez := rez * a;

  Pow := rez;

end;

 

var

  n, i:integer;

  R:real;

begin

  r := 0;

  write('n = '); readln(n);

  for i := 1 to n do

  begin

    r := r + Pow(-1, i mod 2) * (i + 1) / Fact(i);

  end;

  writeln('R = ', r);

end.

 

 

 

// №1 б)

 

function Fact(n:integer):integer;

var

  rez, i:integer;

begin

  rez := 1;

  for i := 1 to n do

    rez := rez * i;

  Fact := rez;

end;

 

function Summ(n:integer):real;

var

  i:integer;

  rez:real;

begin

  rez := 1;

  for i := 2 to n do

    rez := rez + 1/i;

  Summ := rez;

end;

 

var

  n, i:integer;

  R:real;

begin

  r := 0;

  write('n = '); readln(n);

  for i := 1 to n do

  begin

    r := r + Fact(i)/Summ(i);

  end;

  writeln('R = ', r);

end.

 

 

 

// №2 а)

 

function Fact(n:integer):integer;

var

  rez, i:integer;

begin

  rez := 1;

  for i := 1 to n do

    rez := rez * i;

  Fact := rez;

end;

 

function Pow(a:real; x:integer):real;

var

  i:integer;

  rez:real;

begin

  rez := 1;

  for i := 1 to x do

    rez := rez * a;

  Pow := rez;

end;

 

var

  n, i:integer;

  R, x:real;

begin

  r := 0;

  write('n = '); readln(n);

  write('x = '); readln(x);

  for i := 1 to n do

  begin

    r := r + Pow(x, i) / Fact(i);

  end;

  writeln('R = ', r);

end.

 

 

 

// №2 б)

function Pow(a:real; x:integer):real;

var

  i:integer;

  rez:real;

begin

  rez := 1;

  for i := 1 to x do

    rez := rez * a;

  Pow := rez;

end;

 

var

  n, i:integer;

  R, x:real;

begin

  r := 1;

  write('n = '); readln(n);

  write('x = '); readln(x);

  for i := 1 to n do

  begin

    r := r * (i / (i + 1) - Pow(cos(x), i)) ;

  end;

  writeln('R = ', r);

end.

 

4,4(54 оценок)
Ответ:
ladykati
ladykati
29.05.2022

Александр Сергеевич Пушкин родился 26 мая 1799 года в Москве в дворянской помещичьей семье (отец его был майор в отставке) в день праздника Вознесения.

В тот же день у императора Павла родилась внучка, в честь которой во всех церквах шли молебны и гудели колокола. Так, по случайному совпадению день рождения русского гения был ознаменован всеобщим народным ликованием. Символично и место рождения поэта г. Москва - самое сердце русской жизни, России.

Будущего поэта крестили 8 июня в церкви Богоявления в Елохове.

Отец Пушкина Сергей Львович и мать Надежда Осиповна, урожденная Ганнибал, были дальними родственниками. Пылкие страсти, руководившие предками как по отцовской, так и по материнской линии, оказали свое влияние и на Пушкина.

Семья (кроме Александра, были еще дети Ольга и Лев) принадлежала к самой образованной части московского общества. только ошибки сделай сама

4,6(34 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ