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

Задание №2 Укажите виды трансляторов. Выберите два правильных ответов.

1. Интерпретатор
2. Коммутатор
3. Табулятор
4. Компилятор

👇
Ответ:
evelink222
evelink222
24.04.2021

первый и третий я так думаю не знаю

4,7(68 оценок)
Открыть все ответы
Ответ:

#include <iostream>

#include <ctime>

using namespace std;

int main()

{

   int n[10],a,b;

   float s;

   cout<<"OT: ";cin>>a;

   cout<<"DO: ";cin>>b;

   srand(time(0));

   

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

   {

       n[i] = a+rand()%b;

   }

   cout <<"Все числа: ";

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

   {

       cout<<" "<<n[i];

       s = s + n[i];

   }

cout<<endl<<"ITOG: "<<s/(sizeof(n)/sizeof(int));

   return 0;

}

Объяснение:

4,6(88 оценок)
Ответ:
Миша142546
Миша142546
24.04.2021
1. Современное решение (быстро, просто и легко)
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('Ср.арифм: ',ReadSeqRealWhile(k->k>=0).Average:0:4)
end.

Пример
23 11.7 0 12.9 16.7 13 -12
Ср.арифм: 12.8833

2. Школьный вариант в стиле "1983г." (Turbo Pascal 7.0)

uses Crt;
var
  n:integer;
  x,a:real;
begin
  a:=0;
  n:=0;
  repeat
    Read(x);
    if x>=0 then begin
      n:=n+1;
      a:=a+x
      end
  until x<0;
  a:=a/n;
  Writeln('Ср.арифм: ',a:0:4);
  ReadKey
end.
4,6(76 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ