Находим ту степень, в которую надо возвести двойку, чтобы получить N.
Var a,b,c:integer;
begin
readln(a,b,c);
if ((a+b+c) div 3) mod c =0 then writeln('YES')
else writeln('NO');
end.
1.
var a,i:integer; s:real;
begin
writeln('Введите последнее число:');
readln(a);
s:=0;
for i:=0 to round((a-1)/0.1) do
s:=s+(1+i*0.1)*(1+i*0.1);
writeln('Сумма = ',s:4:1);
end.
Пример:
<span>Введите последнее число:
3
Сумма = 91.7
2.
var a,i:integer;
begin
writeln('Введите натуральное число:');
readln(a);
write('Ответ: ');
while a>=1 do
begin
write(a,' ');
a:=a-2;
end;
writeln;
end.
Пример:
<span>Введите натуральное число:
8
Ответ: 8 6 4 2 </span></span>
Ответ:
Объяснение:
Если частота обновления экрана будет меньше чем количество кадров, то часть кадров будет потерена. Даже если частота кадров будет совпадать с частотой обновления экрана, то даже небольшое расхождение между обновлением экрана и сменой кадров приведёт к потере кадров.
import random
m=[]
d=int(input())
for a in range(d):
m.append(random.randint(-23,34))
print(m)