Вроде бы вот так
program nomer;
var x,s,i:integer;
begin
for x:=10 to 99 do
begin
if (x mod 5)=0 then s:=s+x;
end;
writeln(s);
end.
Х=А7(16) у=67(8)
Так для удобства вычислений переведем х и у в 10 сис-му счисления
Х=А7(16)=167(10)
Y=67(8)=55(10)
Теперь складываем 167+55=222(10)
Переводим полученное число в 2-ю сис-му счисления
222(10)=1101110(2)
Program n5;
var p: real;
i,n: integer;
begin
p:=1;
readln(n);
for i:=1 to n do p:=p*(2*i)/(2*i+1);
writeln(p);
end.
Program n1;
var sum,k,a: integer;
begin
readln(a);
sum:=0;
k:=0;
while a<>0 do
begin
if (a>99) and (a<1000) then
begin
k:=k+1;
sum:=sum+a;
end;
readln(a);
end;
if k=0 then write('NO') else write(sum/k);
end.
Program n2;
var k,a: integer;
begin
readln(a);
k:=0;
while a<>0 do
begin
if (a>99) and (a<1000) and (a mod 4=0) then k:=k+1;
readln(a);
end;
write(k);
end.
Учитывая, что в условии не обозначены границы N, придется воспользоваться возможностями PascalABC.Net
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var f: BigInteger := 1;
var s: BigInteger := 0;
var n := ReadInteger;
for var i := 1 to n do
begin
f:=1;
for var j := 1 to i do f *= j;
s := s + f;
end;
println('Сумма факториалов ', s);
end.
Тестовое решение
n=100
Сумма факториалов 94269001683709979260859834124473539872070722613982672442938359305624678223479506023400294093599136466986609124347432647622826870038220556442336528920420940313