Я бы сделал так:
var a,a1,a2,a3,a4:integer;
begin
write ('Введите четырехзначное число: '); read (a);
a1:= a div 1000;
a2:= a div 100 mod 10;
a3:= a div 10 mod 10;
a4:= a mod 10;
writeln ('Первая цифра: ',a1);
writeln ('Вторая цифра: ',a2);
writeln ('Третья цифра: ',a3);
writeln ('Четвёртая цифра: ',a4);
<span>end.
<u>Этот вид более эстетичный</u> ;)
</span>
1. при сложении и вычитании двоичных чисел помним о следующих правилах:
0+0=0 0-0 = 0
1+0=1 1-0 = 1
1+1 = 10 1-1 = 0
0+1 = 1 10-1 = 1
1010+10 = 1100
1010-10 = 1000
2.при умножении и делении действуем так же, как в десятичной СС
1010 1010*10 = 10100
<u>* 10</u>
0000
<u>+1010 </u>
10100
1010<u>| 10 </u> 1010/10 = 101<u>
</u>
<u>1010</u> 101
0
В двоичной системе получается 1100100
Ответ: 3
Незн
оакшгпролнпшарррррпгп
Int main()
{
double n, m, s;
setlocale (LC_ALL, "rus_rus.1251");
m=0;
n=1;
do
{
s=cos(n)/sqrt((2*n*n-1)*(n*n+1));
m+=s;
n++;
}
while (n<41);
cout << "Сумма чисел от 1 до 40, заданная как cos(n)/sqrt((2*n*n-1)*(n*n+1)) = "<< m;
return 0;
}
Результат:
<span>Сумма чисел от 1 до 40, заданная как cos(n)/sqrt((2*n*n-1)*(n*n+1)) = 0.234638</span>