Begin
var a := ReadInteger('a =');
PrintLn(
Range(1, ReadInteger('n ='))
.Where(x -> (x mod 5 = 0) and (x < a))
.Aggregate((s, x)-> s + x)
);
end.
Его можно записать так : либо x^(1/5) или просто 1/5
var i: integer;
n1,n2: integer;
begin
for i := 10 to 99 do
begin
n1 := i div 10;
n2 := i mod 10;
if (n1 + n2) * (n1 + n2) * (n1 + n2) = i * i then
begin
writeln(i);
end
end;
end.
1)Если он этого не знал.
2)Если он все понял.(может быть такое, что сообщение написано на языке которое он не знает.)
3)Если он его прочитал и осмыслил.(может же просто пробежаться глазами