Все категории

3 года назад

Помогите пожалуйста 4. И 5. (Заранее спасибо)

Знания

Информатика

2 ответа:

ABS777 [18]3 года назад

0 0

Ответ:

Объяснение:

4. Кристалл

5. Нанометр

vitaliyfedosov [3]3 года назад

0 0

5. нанометр

4. кристалл наверно

Читайте также

Игорь придумал пароль из 16 символов, состоящий из цифр и английских букв. Чтобы его не забыть, он решил записать пароль, но пре

Мубаракшин

Так как у нас есть конечний результат, операции делаем с конца:
3) 01y2pphaaryeew8n = n8weeyraahpp2y10
2)n8weeyraahpp2y10 =8newyearhappy201
1)8newyearhappy201 = happy2018newyear

0 0

3 года назад

В отделе работают 3 сотрудника, которые получают заработную плату в рублях. Требуется определить: на сколько зарплата самого выс

Ксения2160 [7]

var n,max,min,i:integer;

begin

max:= -1;

min:= 999999;

for i:=1 to 3 do begin

write('введите зарплату ' ,i, ' сотрудника: ');

readln(n);

if(n>max) Then max:=n;

if(n<min) Then min:=n;

end;

write('разница равна ',max-min);

end.

0 0

4 года назад

Каким образом можно избавиться от ОЗУ-резидентных вирусов?

Роман Цушко [14]

Надо просто очистить ОЗУ!

0 0

4 года назад

Вычеркни повторяющиеся буквы, и ты получишь название составляющей части компьютера "о а м т н е р м ю о к ю с т"

Smaket

...анеркс..............

0 0

4 года назад

Прочитать ещё 2 ответа

Максимальная длина монотонного фрагмента последовательности. Дана последовательность натуральных чисел, завершающаяся числом 0.

Нюта Ирбис [3.2K]

===== PascalABC.NET =====

begin

var (k, kmax, s) := (1, 0, 1);

var a := ReadInteger;

if a = 0 then

begin

Print(1);

exit

end;

foreach var b in ReadSeqIntegerWhile(p -> p <> 0) do

begin

var sgn := Sign(b - a);

a := b;

if sgn = s then

k += 1

else

begin

if k > kmax then

kmax := k;

(k, s) := (2, sgn)

end

end;

if k > kmax then

kmax := k;

Print(kmax)

end.

0 0

4 года назад