//PascalABC.NET версия 3.3.5
var ar: array[0..3] of integer;
digits: array[0..9] of integer;
out: array[1..4, 1..7]of integer;
begin
for var i := 0 to 9 do
digits[i] := 0;
var sum := 0;
for var i := 1 to 2 do
begin
out[i][1] := 1053;
out[i][2] := 1077;
out[i][3] := 1074;
out[i][4] := 1077;
out[i][5] := 1088;
out[i][6] := 1085;
out[i][7] := 1086;
end;
out[4][1] := 1053;
out[4][2] := 1077;
out[4][3] := 1074;
out[4][4] := 1077;
out[4][5] := 1088;
out[4][6] := 1085;
out[4][7] := 1086;
out[3][1] := 1042;
out[3][2] := 1077;
out[3][3] := 1088;
out[3][4] := 1085;
out[3][5] := 1086;
out[3][6] := 160;
out[3][7] := 160;
var num := readinteger('Введите четырехзначное число:');
ar[3] := num mod 10;
ar[2] := num div 10 mod 10;
ar[1] := num div 100 mod 10;
ar[0] := num div 1000;
for var i := 0 to 3 do
digits[ar[i]] += 1;
for var i := 0 to 9 do
try
sum += digits[i] div digits[i];
except
on System.DivideByZeroException do
end;
for var i := 1 to 7 do
write(chr(out[sum][i]));
end.
Ответ:
1. 24576/16 = 1536
2.8*40*64*8/1024 = 160
Объяснение:
1. Мы делим общее количество бит на размер одного символа.
2. Ну тут думаю все понятно. То есть находим сколько символов и умножаем на их размер в байтах, потом делим на 1024 вроде все понятно.
Лови
#include <bits/stdc++.h>
using namespace std;
int n;
int main() {
cin >> n;
int tmp, t = 0;
tmp = n;
while (tmp > 0) {
t *= 10;
t += tmp%10;
tmp /= 10;
}
if (t == n) cout << "YES\n";
else cout << "NO\n";
}
PROGRAM PR12_NV;
USES CRT;
VAR Y, A: REAL;
I: BYTE;
BEGIN
WRITE(' a = ');
READLN(A);
Y:=0;
FOR I:= 1 TO 10 DO
BEGIN
Y:= Y+ I*LN(A);
END;
WRITELN(' Y = ', Y:12:6);
END.
Ответ:
Объяснение: на одно ядро может быть несколько потоков