Duglas17
25.06.2021 16:45

Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования.
Алгоритмический язык
алг
нач
цел s, к
s := 120
нц для к от 10 до 20
s := s - 10
кц
вывод S
кон

У исполнителя Увеличитель две команды, которым присвоены номера:
1. прибавь 4
2. умножь на 3
Первая из них увеличивает число на экране на 4, вторая увеличивает его в 3 раза. Составьте алгоритм получения из числа 5 числа 39, содержащий не более 5 команд. В ответе запишите только номера команд.
(Например, 121 — это алгоритм:
прибавь 4
умножь на 3
прибавь 4,
который преобразует число 2 в число 22.)
Если таких алгоритмов более одного, то запишите любой из них.

У исполнителя Квадратор две команды, которым присвоены номера:
1. зачеркни слева
2. возведи в квадрат
Первая из них удаляет крайнюю левую цифру числа на экране, вторая — возводит число во вторую степень.
Составьте алгоритм получения из числа 62 числа 36, содержащий не более 5 команд. В ответе запишите только номера команд.
(Например, 12121 — это алгоритм:
зачеркни слева
возведи в квадрат
зачеркни слева
возведи в квадрат
зачеркни слева,
который преобразует число 47 в 1.)
Если таких алгоритмов более одного, то запишите любой из них.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Wwwoxanap2013
13.09.2020 17:46
Составим программку:

uses Crt;
const n=20;
type Mas=array [1..n, 1..n] of integer;
var A: Mas;
    i,k, Sum: integer;
begin
ClrScr;
Sum:=0;
for i:=1 to  n do
  begin
  for k:=1 to n do
     begin
      if i>k then
             begin
                A[i,k]:=1;
                Sum:=Sum+A[i,k];
             end
             else
             begin
                A[i,k] :=-1;
                Sum:=Sum+A[i,k];
             end;
      Write(A[i,k]:3);
     end;
  WriteLn;
  end;
  WriteLn;
  WriteLn(' Sum = ',Sum);
ReadLn;
end.

Эта программа симметрично относительно главной диагонали заполняет массив единичками с плюсом или минусом и считает сумму диагональных элементов.
Если n=20, то Sum = -20
Если n = 100, то Sum = - 100
ПРАВИЛЬНЫЙ ОТВЕТ:      3) - 100
0,0(0 оценок)
Ответ:
superplay06
13.09.2020 17:46
Составим программку:

uses Crt;
const n=20;
type Mas=array [1..n, 1..n] of integer;
var A: Mas;
    i,k, Sum: integer;
begin
ClrScr;
Sum:=0;
for i:=1 to  n do
  begin
  for k:=1 to n do
     begin
      if i>k then
             begin
                A[i,k]:=1;
                Sum:=Sum+A[i,k];
             end
             else
             begin
                A[i,k] :=-1;
                Sum:=Sum+A[i,k];
             end;
      Write(A[i,k]:3);
     end;
  WriteLn;
  end;
  WriteLn;
  WriteLn(' Sum = ',Sum);
ReadLn;
end.

Эта программа симметрично относительно главной диагонали заполняет массив единичками с плюсом или минусом и считает сумму диагональных элементов.
Если n=20, то Sum = -20
Если n = 100, то Sum = - 100
ПРАВИЛЬНЫЙ ОТВЕТ:      3) - 100
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота