1)одна амёба делится в минуту на две. сколько амёб будет через 15 минут? 2)s=cos0.1+cos0.3++cos5 3)p=0.20.40.6**2.8 решить на языке паскаль !

👇

Ответ:

Nazym99

22.01.2021

Первая.
program one;
var i:byte; a:integer; begin a:=1; for i:=1 to 15 do begin a:=a+a; end; write(a); end.
Третья.
program three; var p:real; i:real; a:real; begin p:=1; i:=1/5; while i<=2+4/5 do begin p:=p*i; i:=i+1/5; write(p, ' '); end; write(p); end.
Во второй промежуточное не понял, напишите без многоточия.

4,8(61 оценок)

Открыть все ответы

Ответ:

Podokonik

22.01.2021

поскольку компьютер предоставляет все три класса информационных методов для работы с данными (аппаратные, программные и естественные), принято говорить о компьютерной системе как о состоящей из аппаратных и программных средств, работающих совместно. узлы, составляющие аппаратные средства компьютера, называют аппаратным обеспечением. они выполняют всю работу с данными: регистрацию, хранение, транспортировку и преобразование как по форме, так и по содержанию, а также представляют их в виде, удобном для взаимодействия с естественными информационными человека.

совокупность аппаратных средств компьютера называют его аппаратной конфигурацией.

4,6(62 оценок)

Ответ:

Yanawer

22.01.2021

В начале мы создаем массив случайных элем.
Потом работаем с ним.
Нам нужны 2 переменные:
1 - переменная, для сохранения результата (номера).
2 - переменная флажок.
Мы обходим весь массив ПО СТОЛБЦАМ.
В начале обхода конкретного столбца переменной флажка присвоим 1.
Сравниваем текущий элемент столбца с последующим,
если они не равны то ставим флажок 0

Код:
//Размерность массива
const n = 3;
//Сам массив
var
ar : array[1..n,1..n] of integer;
//Переменные для работы с массивом
var
i,j : integer;
//Переменные для поиска столбца
//f - переменная флажок, которая по окончанию обхода столбца будет
//показывать одинаковы ли элементы в нем
//numb - переменная, в которой сохраним номер столбца с
//одинаковыми значениями элементов.
var
f,numb : integer;
begin
//Создание и вывод на экран массива
//Элементы генерируются случайным образом
//
for i:=1 to n do
begin
for j:=1 to n do
begin
ar[i,j] := random(2);
write(ar[i,j]:3);
end;
writeln;
end;
//

//Вот сам алгоритм поиска
//
//Записываем в numb значение -1
//Если в процессе работы значение не изменится (-1)
//То означает, что в массиве нет одинаковых столбцов
numb := -1;

//Идем по массиву
//
for j:=1 to n do
//Момент начала конкретного j столбца
  begin
//записываем в f значение 1
//Предполагаем, что столбец одинаков
//Если в конце обхода конкретного столбца значение f=1
//Значит, что данный столбец одинаков
  f := 1;

//Идем по столбцу
// n-1
//(т.к сравниваем текущий со следующим)
for i:=1 to n-1 do
begin
//Сравниваем текущий элемент столбца, со следующим
if (ar[i,j] <> ar[i+1,j]) then
//Если они не равны, то изменяем значение флажка f на 0
  f := 0;
end;
//Конец обхода конкретного столбца

//Если столбец одинаков
if (f = 1) then
//то записываем его номер в numb
  numb := j;
end;
//

//Вывод результата
if (numb <> -1) then
writeln('Столбец №: ',numb)
else
writeln('Нет ни одного одинакового столбца');
end.

4,8(86 оценок)

Это интересно:

Стиль-и-уход-за-собой

19.03.2021

Как завивать ресницы: секреты красивого взгляда...

Искусство-и-развлечения

14.04.2020

Как танцевать дабстеп: секреты и хитрости...

Кулинария-и-гостеприимство

29.07.2020

Приготовление вкусного и ароматного лимонного риса в домашних условиях...

Стиль-и-уход-за-собой