Староческуль-Станиславовна
?>

Перепишите программу на паскале, исправив ошибки: program massiv; var a: array(-10..10) of integer; begin for i: =1 to 20 do read(a[i]); for i: =1 to 20 do a[i]: =a[i]/10; for i: =1 to 20 do write(a[i]) end.

Информатика

Ответы

maksim1lssah575

program massiv; var a: array[-10..10] of integer;   i: integer; begin

for i: =1 to 20 do begin read(a[i]); a[i]: = round(a[i]/10); write(a[i]);   end.

mshelen732

#include <iostream>

#include <cmath>

#include <algorithm>

#pragma GCC optimize("Ofast")

#define ll long long

#define ld long double

using namespace std;

ll digits(ll a){

   ll c = 0;

   while(a > 0){

       a /= 10;

       c++;

   }

   return c;

}

signed main() {

   srand(time(NULL));

   const ll n = 25;

   ll sum = 0;

   ll mas[n];

   for(ll i = 0; i < n; i++){

       mas[i] = rand() % 493 - 246;

       cout << mas[i] << " ";

       if(digits(mas[i]) == 2 && mas[i] % 4 == 0)

           sum += mas[i];

   }

   cout << "\n" << sum;

}

zigrin
Запись с 64 уровнями дискретизации требует 8 бит на отсчет. по-видимому, речь идет об амплитуде сигнала. для записи сигнала с частотой 16 кгц в каждую секунду делается 16 000 отсчетов. поскольку запись стереофоническая, то она использует два канала, т.е. количество отсчетов в секунду составит 2 х 16 000 = 32 000. за минуту и 10 секунд, т.е. за 70 секунд - в 70 раз больше. итого получаем 32 000 х 70 х 8 = 17 920 000 бит. переведем это значение в байты, поделив на 8 ( в 1 байте 8 бит), а затем в килобайты, поделив на 1024. получим 17 920 000 / 8 / 1024 ≈ 2 188 (кбайт). наиболее близкий из ответов: 2) 2048

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

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

Перепишите программу на паскале, исправив ошибки: program massiv; var a: array(-10..10) of integer; begin for i: =1 to 20 do read(a[i]); for i: =1 to 20 do a[i]: =a[i]/10; for i: =1 to 20 do write(a[i]) end.
Ваше имя (никнейм)*
Email*
Комментарий*