Помогите написать программы в Pascal ABC 1.найти сумму s=3/1+6/14+9/20.......+99/200 2.среди 3-х значных чисел найти и вывести на экран числа, которые равны сумме кубов своих цифр
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.
Answers & Comments
Verified answer
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.
Результат:
153370371407