"складіть блок - схему алгоритму знаходження суми шести чисел перше з яких дорівнює 100, а кожне з п'яти наступних у 5 разів менше від попереднього. виконайте алгоритм
"складіть блок - схему алгоритму знаходження суми шести чисел перше з яких дорівнює 100, а кожне з п'яти наступних у 5 разів менше від попереднього. виконайте алгоритм
Pascal
var
S,a1,a2,a3,a4,a5,a6:real;
begin
a1:=100;
a2:=a1/5;
a3:=a2/5;
a4:=a3/5;
a5:=a4/5;
a6:=a5/5;
S:=a1+a2+a3+a4+a5+a6;
write(S);
end.