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

12. Найдите правильную запись на языке Python выражения (34.5+24.5)/15y.
A) (34.5+24.5)/15y
В) (34.5+24.5)*15*у
C) (34.5+24.5)/(15*y)
D) (34,5)+(24,5)/(15*y)
13. Найдите правильную запись на языке Python выражени
12x/16–3.4.
А) 12*x/16-3.4
В) 12*(x/16-3.4)
C) (12*x)/16-3.4
D) 12*x/(16-3.4)
14. Найдите значение выражения 12/(3*2) – 12/3/2 + 12/3+2.
A) 2.
В) 4.
C) 8.

👇
Открыть все ответы
Ответ:
каринка195
каринка195
05.04.2023
Const
  N = 5;
  L = 8;

var
  K: array[1..N, 1..L] of integer;
  i, j, p: integer;

begin
  Randomize;
  for i := 1 to N do
  begin
    for j := 1 to L do
    begin
      K[i, j] := random(100) - 50;
      write(K[i, j]:5);
    end;
    writeln
  end;
  p:=0;
  for i := 1 to N do
    for j := 1 to L do
      if (K[i, j]<0) and (K[i,j] mod 3=0) then p:=p+1;
  writeln('Найдено отрицательных элементов, кратных трем: ',p)
end.

Тестовое решение:

   27   42    0   25  -49   41  -16  -14
  -26  -29   27  -16   10  -16   17   18
   -4   10   17  -26   45  -23   48  -44
  -47   28   25   -1  -31   24   35  -47
  -39   49  -48   29  -42    2   -6   32
Найдено отрицательных элементов, кратных трем: 4
4,4(68 оценок)
Ответ:
gabenew
gabenew
05.04.2023
Program Array129;
var
a: array [1..40] of integer;
B: array [1..20] of integer;
C: array [1..20] of integer;
temp,M,N,i,j:integer;
begin
writeln('Введите N (N<=20)');
readln(N);
writeln('Значения массива А');
for i:=1 to n do begin write('a[',i,']=');readln(A[i]); B[i]:=i; end;
// решение 
temp:=0;
m:=0;
// формируем из исходного массива A[] два с длиной серий B[] и значением серий C[] 
for i:=2 to n do
begin
inc(temp);
if a[i]<>a[i-1] then
begin
inc(M);
B[M]:=temp;
C[M]:=a[i-1];
temp:=0;
end;
end;
inc(temp);
inc(M);
b[M]:=temp;
C[M]:=a[i];
// складываем массив A[] согласно задания. 
temp:=1;
for i:=1 to m do
begin
if b[i]>=b[temp] then
begin
temp:=i;
end;
end;
inc(b[temp]);

temp:=0;
for i:=1 to m do
begin
for j:=1 to b[i] do
begin
inc(temp);
a[temp]:=c[i];
end;
end;
Writeln;
Writeln('ответ');
Write(' A[]: '); for i:=1 to temp do Write(A[i],' ');
end.
4,4(50 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ