1)4*4=16, 2^4=16 ответ 4 бита
2)2^3=8; 2^7=128 событий
3)2^3=8 ответ 3 бит
4)2^7=128 ответ 7 бит
5)4/32=1/8; 2^3=8 ответ 3 бит
var
x,x1:integer;
begin
readln(x);
if (x div 10 + x mod 10 >= 10) then writeln ('Является')
else begin x1:=x; while (x1 div 10 + x1 mod 10 < 10) do x1:=x1+1; end;a
if (x div 10 + x mod 10 < 10) then writeln('Нужно увеличить на ',x1-x);
end.
//Прога на языке Паскаль:
var a, sum: double;
begin
write ('Введите первоначальную стоимость газеты: ');
readln (a);
sum:=a*50+(1.2*a*150);
write ('Заработок продавца: ', sum);
end.
Вот код:
n, m = int(input()), int(input())
n += m
s1, s2 = set(), set()
for i in range(n):
student = (input())
if student in s1:
s1.remove(student)
s2.add(student)
else:
s1.add(student)
if len(s1) <= 0:
print('NO')
else:
print(len(s1))
Вот ссылка на код с отступами:https://pastebin.com/Ud5AwrSs
Uses crt;
var
i: integer;
k: array [1..5] of real;
begin
clrscr;
writeln ('Input array:');
for i:=1 to 5 do
begin
write (i,') ');
readln (k[i]);
end;
writeln ('Your array:');
for i:=1 to 5 do
write (k[i],' ');
readln ();
<span>end.</span>