Var i,s:integer;
begin
s:=0;
for i:=20 to 450 do
if (i mod 4 = 0) then s:=s+i;
writeln(s);
end.
13 в 10-ой = 1101 в 2-ой.
Запишем в 16 разрядной ячейке:
Первый разряд ячейки отводим под знак числа. Число положительное, значит записываем 0.
0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 1
Система счисление с основанием 311:
Запишется как [28][2]
проверка311**1*28+311**0*2 == 8710
Половина пруда на 9 день. т.к каждый день *2
9день это половина полного пруда.
2 в 9 степени это 512 листьев
если степени ещё не проходили , просто по умножай на 2
2 4 8.... 128 256 512
Program n1;
var
n, i: integer;
p: real;
begin
write('Введите n: ');
readln(n);
p := 1;
for i := 2 to n do
p := p * i;
writeln(n, '! = ', trunc(p));
end.