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

5. у исполнителя квадратор две команды, которым присвоены но¬ме¬ра: 1. при¬бавь 1 2. воз¬ве¬ди в квад¬рат пер¬вая из них уве¬ли¬чи¬ва¬ет число на экра¬не на 1, вто¬рая воз¬во¬дит его во вто¬рую сте-пень. ис¬пол¬ни¬тель ра¬бо¬та¬ет толь¬ко с на¬ту¬раль¬ны¬ми чис¬ла¬ми. со¬ставь¬те ал¬го¬ритм по¬лу-че¬ния из числа 1 числа 100, со¬дер¬жа¬щий не более 5 ко¬манд. в от¬ве¬те за¬пи¬ши¬те толь¬ко но¬ме¬ра ко¬манд. (на¬при¬мер, 12121 — это ал¬го¬ритм: при¬бавь 1, воз¬ве¬ди в квад¬рат, при-бавь 1, воз¬ве¬ди в квад¬рат, при¬бавь 1, ко¬то¬рый пре¬об¬ра¬зу¬ет число 1 в 26.) если таких ал-го¬рит¬мов более од¬но¬го, то за¬пи¬ши¬те любой из них.

👇
Ответ:
glupiychelovek
glupiychelovek
18.01.2023
11212
Пояснение:
1. 1+1=2 (прибавь 1)
2. 2+1=3 (прибавь 1)
3. 3*3=9 (возведи в квадрат)
4. 9+1=10 (прибавь 1)
5. 10*10=100 (возведи в квадрат)
4,6(30 оценок)
Открыть все ответы
Ответ:
elenak22
elenak22
18.01.2023
Program array15numbers;
var a:array [1..15] of integer; b:array [1..15] of real; i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=-20 + Random(41); {почему не 40? такова особенность паскаля}
writeln(a[i]); {чтобы увидеть созданный массив}
end;
writeln(); {нужен, чтобы сделать отступ}
for i:=1 to 15 do
begin
if abs(a[i] mod 2) = 1 then {abs - модуль от числа, mod - остаток от деления}
begin
b[i]:=a[i]*3;
end
else
begin
b[i]:=a[i]/2;
end;
writeln(b[i]);
end;
end.

Остались вопросы? - спрашивай в комментах.
Нужно более подробное объяснение - пиши в лс vkcom/ilyahard
4,7(35 оценок)
Ответ:
Cyndyma
Cyndyma
18.01.2023
Программу надо сформатировать и тогда её структура будет видна лучше.
А чтобы понять, как идет выполнение, в нужных точках ставим промежуточную выдачу - это называется "трассировкой".

var
  s, k: integer;
label
  met;
begin
  s:=-12;
  k:=90;
  Writeln('s=',s,', k=',k);
  s:=s+10;
  Writeln('s=',s);
met:
  Writeln('Метка met:');
  k:=k+10; Write('k=',k);
  if k<200 then s:=50 else s:=s+k;
  Writeln(', s=',s);
  if k<200 then goto met;
  Writeln('Результат: s=',s)
end.

Результат выполнения программы:
s=-12, k=90
s=-2
Метка met:
k=100, s=50
Метка met:
k=110, s=50
Метка met:
k=120, s=50
Метка met:
k=130, s=50
Метка met:
k=140, s=50
Метка met:
k=150, s=50
Метка met:
k=160, s=50
Метка met:
k=170, s=50
Метка met:
k=180, s=50
Метка met:
k=190, s=50
Метка met:
k=200, s=250
Результат: s=250
4,4(22 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ