Работа по теме ветвления. 1. Запишите последовательно по порядку операции отношения:больше, меньше, равно, меньше или равно, неравенство, больше или равно.2. Выберите № ответа, в котором переменной величине присваивается значение выражения:а) IF A>0 THEN X=AAб) B:=SQRT(X)-0.5в) READ(A)3. Дан фрагмент программы:READ (B);IF B>0 THEN Y:=SQRT ( B ) ELSE Y:= BB;Чему будет равен Y при В=9? (Записать ответ) 4. Запишите на языке Паскаль фразу (печатать это значит вывести значение) «Если К>0, то печатай К, иначе печатай К2».5. Записать, используя оператор условного перехода: «Если А<0, то присвоить В значение А2/2, иначе В присвоить значение А - 3».6. Дан фрагмента программы: M:=5;If m>5 then y:=5+m else y:=100-m;Writeln (y);Что появится при выводе переменной y?7. Дан фрагмента программы: Определите значение переменной С после выполнения фрагмента программы:А:=100;В:=30;А:=А-В*3;Если А>В то С:=А-В иначе С:=В-А8. Составить блок-схему и программу для вычисления n.9.

Информатика

Ответить

Ответы

schernov

15.05.2022

#include <iostream>
using namespace std;

int main()
{
int n, k;
cout << "n = ";
cin >> n;
cout << endl;
int a[n];
for (int i = 0; i < n; i++) {
cout << "a[" << i << "] = ";
cin >> a[i];
cout << endl;
}
cout << "k = ";
cin >> k;
cout << endl;
int c = 0;
for (int i = 0; i < n; i++) {
if (a[i] % 10 == k) c++;
}

int ret[c], pos = 0;
for (int i = 0; i < n; i++) {
if (a[i] % 10 == k) {
ret[pos] = a[i];
pos++;
}
}
cout << "Результат:" << endl;
for (int i = 0; i < c; i++) {
cout << ret[i] << ' ';
}
return 0;
}

inulikb

15.05.2022

#include<iostream>
#include<cstdlib>
#include<ctime>

#define abs(x) ((x)<0 ? -(x) : (x))
using namespace std;
int main()
{
   srand(time(0));
   int n, k, m = 0;
   cout << "n = ", cin >> n;

   int A[n], B[n];
   cout <<"A("<<n<<"):";
   for(int i = 0; i < n; i++)
       cout <<" "<< (A[i] = rand() % (n*2+1) -n);

   cout << "\nk = ", cin >> k;

   for(int i = 0; i < n; i++)
       if (abs(A[i]) % 10 == k) B[m++] = A[i];

   cout <<"B("<<m<<"):";
   for(int i = 0; i < m; i++)
       cout <<" "<< B[i];
   return 0;
}

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Работа по теме ветвления. 1. Запишите последовательно по порядку операции отношения:больше, меньше, равно, меньше или равно, неравенство, больше или равно.2. Выберите № ответа, в котором переменной величине присваивается значение выражения:а) IF A>0 THEN X=A*Aб) B:=SQRT(X)-0.5в) READ(A)3. Дан фрагмент программы:READ (B);IF B>0 THEN Y:=SQRT ( B ) ELSE Y:= B*B;Чему будет равен Y при В=9? (Записать ответ) 4. Запишите на языке Паскаль фразу (печатать это значит вывести значение) «Если К>0, то печатай К, иначе печатай К2».5. Записать, используя оператор условного перехода: «Если А<0, то присвоить В значение А2/2, иначе В присвоить значение А - 3».6. Дан фрагмента программы: M:=5;If m>5 then y:=5+m else y:=100-m;Writeln (y);Что появится при выводе переменной y?7. Дан фрагмента программы: Определите значение переменной С после выполнения фрагмента программы:А:=100;В:=30;А:=А-В*3;Если А>В то С:=А-В иначе С:=В-А8. Составить блок-схему и программу для вычисления n.9.