В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
leafpool1
leafpool1
16.03.2022 11:06 •  Информатика

Написать блок схему, и в паскалях много

Показать ответ
Ответ:
Alllllllex
Alllllllex
06.06.2020 11:48

В некотором царстве, в некотором государстве жила-была…

Нет! Так все сказки начинаются. А моя сказка начинается по-другому.

На далёком острове среди бушующего океана Информации раскинулось государство Технология. Царствовала там мудрая Информатика. И были у неё подданные: Микросхемы, Мониторы, Процессоры, Клавиатуры, Компьютерные Мыши и многие другие жители.

Захотела Информатика общаться с другими государствами и построила Интернет-порталы. Узнали о государстве Технология на близких островах и далёких землях. Царица Информатика была щедрой правительницей. Она приходила на всем, кто её об этом просил. Все радовались неоценимым подаркам Информатики.

Но один злой правитель захотел всё могущество и знание Информатики прибрать к своим рукам. Однако ему не удалось заполучить её знания, поэтому он решил причинить Информатике вред. И начал он создавать армию Вирусов. Вирусы были очень коварные. Под видом добрых намерений они пробирались в дома к Программам и портили их. Информатика и не догадывалась, какая угроза нависла над её жителями. Однажды она зашла к Windows XP, а он оказался испорченным и не узнал её. Информатика рассказала, кто она такая, и попросила вспомнить, кто его испортил. Windows вспомнил и сказал об этом Информатике.

Информатика созвала совет Старейшин и рассказала им о проблеме. Посовещавшись, они вместе начали создавать Антивирусы. Получилось целое войско: Dr. Web, Kaspersky, Avira, Panda, Nod32 и другие. Когда следующая партия Вирусов через Интернет, на них набросились Антивирусы и связали их. Подлые враги рассказали, кто их сделал. Злого правителя поймали, посадили в клетку.

Царица Информатика не закрыла Интернет, а только расставила на границах стражу от Вирусов.

Так и по сей день правит Информатика в своём государстве и делится своими знаниями с добрыми людьми 

0,0(0 оценок)
Ответ:
89181790311
89181790311
01.04.2023 10:38

1)

var
a: array[1..20] of integer;
i, j, k: integer;

begin
for i := 1 to 10 do
begin
a[i] := random(71) - 40;
write(a[i]:4);
end;
writeln;
writeln('удалили элементы из одинаковых цифр включая однозначные');
i := 1;
k := 10;
while i <= k do
begin
if (abs(a[i]) < 10) or ((a[i] mod 10) = (a[i] div 10)) then
begin
if i = k then k := k - 1
else
begin
for j := i to k - 1 do a[j] := a[j + 1];
k := k - 1;
end;
end
else
i := i + 1;
end;
for i := 1 to k do
write(a[i]:4);
end.

2)

var
a: array[1..20] of integer;
i, j, k,n: integer;

begin
for i := 1 to 10 do
begin
a[i] := random(71) - 40;
write(a[i]:4);
end;
writeln;
writeln('введите k(не должно содержать 1)=');
readln(k);
writeln('вставляем k перед всеми элементами где есть цифра 1');
i := 1;
n := 10;
while i <= n do
begin
if (abs(a[i]) mod 10=1) or (abs(a[i]) div 10=1) then
begin
for j:=n+1 downto i+1 do a[j]:=a[j-1];
a[i]:=k;
n:=n+1;
i:=i+1;
end;
i := i + 1;
end;
for i := 1 to n do
write(a[i]:4);
end.

3)

var
a: array[1..10] of integer;
i, j, k: integer;

begin
for i := 1 to 10 do
begin
a[i] := random(71) - 40;
write(a[i]:4);
end;
writeln;
writeln('меняем местами три первых и три последних элемента');
for i:=1 to 3 do
begin
k:=a[i];
a[i]:=a[i+7];
a[i+7]:=k;
end;
for i := 1 to 10 do
write(a[i]:4);
end.

 

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота