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

Определите, что будет напечатано в результате работы следующей программы. текст программы на трёх языках программирования. алгоритмический язык бейсик паскаль алг нач цел a, k a : = 40 нц для k от 2 до 5 a : = a – k кц вывод a кон dim a, k as integer a = 40 for k = 2 to 5 a = a – k next k print a var a, k : integer; begin a : = 40; for k : = 2 to 5 do a : = a – k; write(a); end.

👇
Ответ:
Исходное значение а=40
k=2. a=40-2
k=3. a=38-3
k=4. a=35-4
k=5. a=31-5
итоговый ответ: a=26
4,4(1 оценок)
Открыть все ответы
Ответ:
kzizh
kzizh
03.03.2021

#include <iostream>

#include <vector>

#include <cmath>

#include <set>

using namespace std;

void swap(int *a, int *b){

   int temp = *a;

   *a = *b;

   *b = temp;

}

signed main() {

   set<pair<int,int>> s;

   int n;

   cin >> n;

   vector<int> a(n);

   for(int &i:a)

       cin >> i;

   int m;

   cin >> m;

   while(m--){

       int x,y;

       cin >> x >> y;

       s.insert({x,y});

       s.insert({y,x});

   }

   for(int i = 0; i < n; i++)

       for(int j = 0; j < n - i - 1; j++)

           if(a[j] > a[j+1] && s.find({a[j],a[j+1]}) == s.end())

               swap(a[j],a[j+1]);

   for(int &i:a)

       cout << i << " ";

}

4,4(90 оценок)
Ответ:
sgjisgop
sgjisgop
03.03.2021
1. Pascal ABC

const
  nn=100;
var
  M,C:array[1..nn] of integer;
  x,i,n,s,max:integer;
  m1,r:real;
begin
  Write('x=');
  Read(x);
  Write('>');
  s:=0;
  n:=0;
  for i:=1 to x do begin
    Read(M[i]);
    if M[i]>3 then begin
      s:=s+M[i];
      n:=n+1
    end
  end;
  if n>0 then m1:=s/n
  else m1:=0;
  max:=M[x];
  for i:=x-1 downto x-9 do
    if M[i]>max then max:=M[i];
  r:=max/m1;
  n:=0;
  for i:=1 to x do
    if M[i]>r then begin
      n:=n+1;
      C[n]:=M[i];
      Write(C[n],' ')
      end;
end.

Пример
x=18
>-15 -19 -32 3 2 35 32 12 -44 39 -36 16 31 5 17 21 -43 -20
3 2 35 32 12 39 16 31 5 17 21

2. PascalABC.NET 3.2, сборка 1370 от 24.12.2016
Если программа не работает, обновите версию!

begin
  var M:=ReadArrInteger('>',ReadInteger('x='));
  var r:=(M.TakeLast(10).Max)/(M.Where(b->b>3).Average);
  var C:=M.Where(b->b>r).ToArray; C.Println
end.

Пример
x= 18
> -15 -19 -32 3 2 35 32 12 -44 39 -36 16 31 5 17 21 -43 -20
3 2 35 32 12 39 16 31 5 17 21

Сравнение явно не в пользу школьного программирования...
4,4(71 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ