110011+1111 = 1000010<span>
--------------------------------------
Ответ: 1000010
</span>
375,42 Гб есть _----------------------
1) 5-1 = 4(2)
2) 4*2 = 8 (1)
3) 8*2 = 16 (1)
4) 16*2 = 32 (1)
5) 32-1 = 31 (2)
Ответ: 21112
Procedure prime(n: integer);
var i: integer;
begin
for i := 2 to round(sqrt(n)) do
if n mod i = 0 then
begin
writeln('Число ', n, ' составное');
exit
end;
writeln('Число ', n, ' простое')
end;
begin
prime(3);
prime(8);
prime(23);
prime(35);
end.
Вывод:
Число 3 простое
Число 8 составное
Число 23 простое
Число 35 составное
//PASCAL ABC.NET
var i, a: integer; arr: array [1..10] of integer;
begin for i := 1 to 10 do read(arr[i]); for i := 1 to 10 do begin if arr[i] mod 6 = 0 then a += arr[i]; end; Write(a/10);end.