begin
var a := SeqGen(15, i -> i + 1).ToArray; a.Println;
{если нужно вводить вручную, закомментируйте вторую строку
и раскомментируйте пятую}
// var a := ReadArrInteger(15);
Swap(a[0], a[4]);
Swap(a[9], a[14]);
a.Println;
end.
#include <iostream>
#include <clocale>
#include <cmath>
using namespace std;
void main()
{
setlocale(LC_CTYPE,"rus");
int x, sum=0;
cout<<"Введите переменную: ";
cin>>x;
for(int i=1; i<x;i++)
{
if(x%i==0)
sum+=i;
}
if(x==sum)
{cout<<"Это совершенное число"<<endl;}
else
{cout<<"Это несовершенное число"<<endl;}
<span>}</span>
ЭВМ- электронная вычислительная машина, связана , что информатика- урок только для компьютер и разной техники!
2) Сейчас есть микро ЭВМ (Ноутбуки...) они используются для работы, для дома, для школы...
3)<span> В1946 в США </span>была создана первая электронная вычислительная машина<span> (</span>ЭВМ<span>) - ENIAC (Electronic Numerical integrator and Computer - </span>Электронный<span> числовой интегратор и </span>компьютер<span>).</span>
Var c:integer; Begin c:=c mod 5; Writeln(c*c); End.
1) переведем "37" в двоичную систему счисления, путем деления числа на два.
2) переведем дробную часть, умножая на два.
Решение смотри во вложении.