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

1) Как называется исполнитель, который может вносить изменения в алгоритм действий? 1. Формальный
2. Неформальный
3. Условный
4. Циклический

2) Какой из перечисленных вариантов исполнителей является формальным?

1. Программно-управляемый автомат
2. Ученик, приступивший к решению задачи с использованием нестандартного подхода
3. Учитель, ведущий урок по составленному плану

3) Что позволяет классифицировать учебных исполнителей как формальных исполнителей?

1. Наличие программного кода, который исполнитель интерпретирует по своему усмотрению
2. Заведомо составленный и однозначно выполняемый алгоритм работы
3. Компьютерная реализация работы данного алгоритма или программы посредством ЭВМ

👇
Ответ:
зали7
зали7
03.03.2023

1) 2

2) 1

3) 2

всё :) ;) :3 ;3

4,8(42 оценок)
Открыть все ответы
Ответ:
alliance234
alliance234
03.03.2023
1. Современное решение, когда можно решить "в одну строку"

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

begin
  Writeln('S=',ReadSeqInteger(3).Select(n->n.ToString
    .Where(d->Pos(d,'13579')>0)).SelectMany(c->c)
    .Select(c->c.ToDigit).Sum)
end.

Пример
252 337 105
S=24

2. А примерно вот так учат писать в школе - долго и длинно (да и не особо понятно)

var
  m,i,j,s,d:integer;
begin
  s:=0;
  for i:=1 to 3 do begin
    Read(m);
    for j:=1 to 3 do begin
      d:=m mod 10;
      if d mod 2<>0 then s:=s+d;
      m:=m div 10
      end
    end;
  Writeln('S=',s)
end.
4,6(58 оценок)
Ответ:
mandarinka3001
mandarinka3001
03.03.2023
1. Современное решение, когда можно решить "в одну строку"

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

begin
  Writeln('S=',ReadSeqInteger(3).Select(n->n.ToString
    .Where(d->Pos(d,'13579')>0)).SelectMany(c->c)
    .Select(c->c.ToDigit).Sum)
end.

Пример
252 337 105
S=24

2. А примерно вот так учат писать в школе - долго и длинно (да и не особо понятно)

var
  m,i,j,s,d:integer;
begin
  s:=0;
  for i:=1 to 3 do begin
    Read(m);
    for j:=1 to 3 do begin
      d:=m mod 10;
      if d mod 2<>0 then s:=s+d;
      m:=m div 10
      end
    end;
  Writeln('S=',s)
end.
4,4(82 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ