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