19792001
22.03.2023 09:04

с Маткадом
Контрольные во Какая переменная называется ранжированной?
2. Как определить ранжированную переменную с заданным шагом? Какой шаг по
умолчанию?
3. Какие графики позволяет строить MathCAD?
4. Как построить график?
5. Как построить несколько графиков в одной системе координат?
6. Как отформатировать построенный график?
7. Как построить график, заданный параметрически?
8. Как добавить дополнительную ось y?
9. Какие типы трехмерных графиков можно построить?
1. С какой команды можно посмотреть описание функций?
2. Как округлить число до ближайшего меньшего целого? Большего целого?
3. Какое число выведет функция rnd(10)?
4. Как работает функция if?
5. Что такое вложенный условный оператор?
6. Для чего используют функции пользователя?
1. Дайте определение вектора и матрицы.
2. Для чего служит системная переменная ORIGIN?
3. Назовите создания векторов и матриц.
4. Назовите векторные операторы.
5. Для чего служит оператор векторизации?
6. Какие векторные функции Вы знаете?
7. Как производится сортировка элементов?
8. Каким образом осуществляется одновременное вычисление с векторов?
9. Какие матричные функции Вы знаете?
10. Назовите матричные операторы.
11. Какими можно объединить матрицы?

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
перйзат
19.02.2022 18:39
Проверено на fpc 3.0.0

const
  m=6; // строк
  n=9; // столбцов
var
  a:array[1..m,1..n] of integer;
  i,j,k1,k2,s,k:integer;
begin
  Writeln('Введите границы диапазона: '); Read(k1,k2);
  Randomize;
  s:=0; k:=0;
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(199)-99; // [-99;99]
      Write(a[i,j]:4);
      if (a[i,j]>=k1) and (a[i,j]<=k2) then begin
        Inc(k); s:=s+a[i,j]
        end
      end;
    Writeln
    end;
  Writeln('Отобрано элементов: ',k,', их сумма равна ',s)
end.
 
Пример
Введите границы диапазона:
-20 55
  -2 -52 -11 -12  70 -15  90 -51  75
 -54 -92  32  54 -72 -24 -40 -37 -20
   0 -14 -79  -1 -39 -34  39  47  34
 -91 -98 -68 -16 -56 -55  97  66  59
 -48 -67 -34  92 -77  12 -67 -23 -90
  75  85  65 -98 -58 -53  -6  34  33
Отобрано элементов: 18, их сумма равна 188

Фпс. дан двумерный массив. найти сумму и количество элементов, в числовой интервал от kl до k2
0,0(0 оценок)
Ответ:
Ninetail
04.01.2020 19:52
Program n1;
function pr(a:longint ):boolean;
var d:longint;
begin
if a<2 then pr:=false
else
begin
pr:=true;
for d:=2 to round(sqrt(a)) do
if a mod d=0 then pr:=false;
end;
end;
function isch(var x: longint ): boolean;
var s: longint;
begin
s:=0;
isch:=false;
while ( x<>0 ) do
begin
s := s + (x mod 10);
x:= x div 10;
end;
if s mod 2=0 then isch:=true;
end;
var k,n,i,c: longint;
y: boolean;
begin
readln(k,n);
if (k>=2) and (n<=100000) then
begin
y:=true;
for i:=k to n do
begin
c:=i;
if (pr(c)) and (isch(c)) then
begin
write(i,' ');
y:=false;
end;
end;
if y then write('0');
end;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота