Question

Помогите написать программы в Pascal ABC
1.найти сумму s=3/1+6/14+9/20.......+99/200
2.среди 3-х значных чисел найти и вывести на экран числа, которые равны сумме кубов своих цифр

Answer 1

1.
var i:integer; s:real;
begin
s:=3;
for i:=2 to 33 do s:=s+3*i/(2*3*i+2);
writeln('s = ',s:6:4);
end.

Результат:
s = 18.5161

2.
var i1,i2,i3:integer;
begin
for i1:=1 to 9 do
 for i2:=0 to 9 do
  for i3:=0 to 9 do
   if i1*i1*i1+i2*i2*i2+i3*i3*i3=i1*100+i2*10+i3
    then write(i1*100+i2*10+i3,' ');
end.

Результат:
153 370 371 407