Студенту Мише задали написать функцию, которая получает на вход число и массив из 16 элементов, и возвращает номер
элемента, равного этому числу. Если таких элементов
несколько – годится любой, если их нет, функция должна
вернуть -1. Вот алгоритм, реализованный Мишей.
1) Что выведет программа Миши при A=5 для массива
11, 3, 2, 5, 7, 4, 6, 1, 15, 8, 12, 10, 9, 5, 20, 14?
2) Для каких из приведённых ниже массивов алгоритм
Вовы будет работать верно при любом A? ответ
обоснуйте.
а) 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13
б) 51, 52, 53, 54, 55, 56, 57, 58, 59, 50, 60, 61, 52, 63, 64, 65
в) 17, 87, 43, 22, 11, 88, 43, 56, 90, 21, 17, 84, 77, 10, 45, 53
г) 1, 3, 3, 3, 9, 9, 9, 9, 9, 9, 9, 9, 9, 27, 27, 27
д) 8, 11, 22, 24, 36, 52, 55, 56, 61, 64, 70, 71, 77, 78, 81, 88
е) 67, 66, 62, 60, 59, 58, 57, 56, 50, 44, 43, 42, 38, 35, 20, 13

Студенту Мише задали написать функцию, которая получает на вход число и массив из 16 элементов, и во

Показать ответ

Ответ:

Аня142

30.03.2022 19:43

Дешифровка: ВХОД_ОТКР Ы Т.

дешифровки:
Const sh = '_.,';
Var
St : String;
i : Integer;
Function DeCode(S : String; Tabl : String; k : Integer) : String;
Var j,n : Integer;
Begin
For j:=1 to Length(S) do
Begin
    n:=Pos(S[j],sh);
    If n>0 then
    Begin
      n:=n+k;
      While n>Length(sh) do n:=n-Length(sh);
      While n<=0 do n:=n+Length(sh);
      S[j]:=sh[n];
    end
end;
DeCode:=S;
end;
Begin
St:='ЗЫФЙГФШРЦ . ШД';
Writeln(Decode(St,sh,-6));
//For i:=-10 to 10 do Writeln(Decode(St,sh,i));
end.

0,0(0 оценок)

Ответ:

дира3

15.06.2021 09:25

Pascal
1. var a, b: real;
begin
write('Введите стороны прямоугольника: ');
read(a, b);
writeln('Периметр = ', 2 * a + 2 * b);
end.

2. var p, b: real;
begin
write('Введите два числа: ');
read(p, b);
writeln('Произведение = ', p * b);
writeln('Разность = ', p - b);
end.

3. var b: real;
begin
write('Введите длину ребра: ');
read(b);
writeln('Объем = ', b * b * b);
end.

4. var r: real;
begin
write('Введите радиус: ');
read(r);
writeln('Площадь = ', 3.14 * r * r);
end.

5. var a, b, c: real;
begin
write('Введите три стороны: ');
read(a, b, c);
writeln('Периметр = ', a + b + c);
end.

0,0(0 оценок)

Популярные вопросы: Информатика