CLS
PRINT" Введите 10 чисел "
FOR i=1 TO 10
INPUT A
IF (A*A)<100 THEN PRINT A :PRINT " ": PRINT (A*A)
NEXT I
END
PASCAL
program aa;
var a : integer;
begin
writeln('Введите день недели');
Read(a);
If (a < 1) or (a>7) then writeln('Такого дня не существует');
If (a > 0) and (a<6) then writeln('Рабочий день');
If a=6 then writeln('Суббота');
If a=7 then writeln('Воскресенье');
end.
В задаче используем для решения две формулы I=Ki и N=2^i
A5
2C
__
D1
Даже не знаю, как пытаться объяснять. Тут надо знать минимально 16-ричную систему счисления.
1)
<span>n = int(input('n ='))
i = <span>1
</span>while i <= n<span>:
</span>----i = i + <span>1
</span></span>----<span>if n \% i == 0<span>:
</span></span>--------<span>print(i,end=',')
2)
</span>print("Введите x:")
x = int(input())
print("Введите y:")
y = int(input())
s = x
k = 1
while s <= y:
k = k+1
s = 1.1*s
print("k = ", k, end = '')