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

сделать алгоритмы в программе стрелочка, стрелочку в любое положение, главное, что алгоритм не был бесконечным


сделать алгоритмы в программе стрелочка, стрелочку в любое положение, главное, что алгоритм не был б

Показать ответ
Ответ:
shishckinayuly
shishckinayuly
22.08.2022 08:21

Объяснение:

1)У тебя спрашивают b=1? У тебя дано b=3, значит b!=1. Если нет, то переходим к следующим указаниям: с=с-b=4-3=1, b=b+c=3+1(Потому что в предыдущем шаге мы дали новое значение для c, вернее произвели математическую операцию с ним. Возвращаемся(Слева линия) снова к логическому условию. Я честно говоря ХЗ, что они тут имели ввиду, но после того, что я описал c=1,но если мы продолжим проверку b=1, то c начнет принимать отрицательные значения. Цикл вышел, как мне кажется.

Теперь мне лень расписывать - держи фото/скрины

Не знаю, что у тебя за язык программирования, но я сделал тоже самое на Python, вроде результат отличатся не должен.


Здравствуйте решить контрольную по информатике Здравствуйте решить контрольную по информатике
Здравствуйте решить контрольную по информатике Здравствуйте решить контрольную по информатике
0,0(0 оценок)
Ответ:
Vartego
Vartego
24.11.2022 04:25
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=ReadArrInteger('Вводите данные:',n); a.Println;
  var s:=a.Where(x->(x>9) and (x<100) and (x mod 10=7));
  if s.Count=0 then Writeln('Таких чисел нет')
  else Writeln(s.Sum)
end.

Пример
n= 5
Вводите данные: 45 -38 27 -17 47
45 -38 27 -17 47
74

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

function Sod(n:integer):integer;
begin
  var s:=abs(n).ToString;
  Result:=s.Select(c->c.ToDigit).Sum
end;

begin
  var a:=ArrRandom(ReadInteger('n='),-999,999); a.Println;
  a:=a.Select(x->Sod(x)).ToArray; a.Println
end.

Пример
n= 10
-252 814 -239 -157 792 -223 697 -482 616 -675
9 13 14 13 18 7 22 14 13 18

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=ReadArrInteger('Вводите данные:',n); a.Println;
  Writeln('Четных чисел ',a.Where(x->x.IsEven).Count);
  Writeln('Нечетных чисел ',a.Where(x->x.IsOdd).Count);
end.

Пример
n= 16
Вводите данные: 34 -345 21321 643 1 0 325 2312 236 -324 -3242 7 12 7 12 50
34 -345 21321 643 1 0 325 2312 236 -324 -3242 7 12 7 12 50
Четных чисел 9
Нечетных чисел 7
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота