Нажимаешь пуск, все программы, ищешь папку Майкрософт офис там будет.
помогла ставь спасибо!
Var
k, n: integer;
begin
k := 0;
n := 3;
repeat
k := k + 1;
n := n + 7;
until n > 366;
writeln(k);
end.
Ответ 52
2016₈ = 2·8³ + 0·8² + 1·8¹ + 6·8⁰ = 2·512 + 0·64 + 1·8 + 6·1 = 1024 + 8 + 6 = 1038₁₀
2014₅ = 2·5³ + 0·5² + 1·5¹ + 4·5⁰ = 2·125 + 0·25 + 1·5 + 4·1 = 250 + 5 + 4 = 259₁₀
Нос 15,7,4
Рот8,10,8
Глаза8,11,7,0
Брови4,8,5,9
Var
x0, x1, c, sum: integer;
begin
sum:=0;
readln(x0, x1, c);
while x0<=x1 do
begin
sum:=sum+x0;
x0:=x0+c;
end;
writeln(sum);
end.