Вычислите скорость вращения дисков, если число секторов на дорожке равно 180, скорость передачи данных жесткого диска MDTR составляет 1024 Мбайт/с, число байтов в секторе – 1024. ответ округлите до целых чисел.
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var x:=ArrRandom(ReadInteger('Число элементов массива х:'),-99,99); x.Println; var a:=x.Where(p->p>0).Sum; var y:=ArrRandom(ReadInteger('Число элементов массива y:'),-99,99); y.Println; var b:=y.Where(p->p>0).Sum; var t:=ArrRandom(ReadInteger('Число элементов массива t:'),-99,99); t.Println; var c:=t.Where(p->p>0).Sum; Writeln('Z=',Ln(a)+Power(Cos(b),3)+c) end.
Пример Число элементов массива х: 8 56 59 24 -5 -13 -24 9 -86 Число элементов массива y: 11 0 6 25 -69 86 34 -92 72 -39 -64 96 Число элементов массива t: 6 -54 24 -15 50 0 19 Z=97.999309110524
#include <iostream>
#include <cstdlib>
using namespace std;
int main()
{
setlocale(LC_ALL,"russian");
int num;
cout << "Введите размер массива: ";
cin >> num;
int a[num];
int sum = 0;
cout << "Вводите элементы массива поочерёдно: " << endl;
for(int i = 0; i<num; i++)
{
cin >> a[i];
if(a[i]%5==0 && a[i]%2==0) // находим в массиве числа, кратные 5 и 2
{
sum = sum + 1;
}
}
cout << "Чётных чисел, кратных пяти и двум: " << sum << endl;
system("pause");
return 0;
}