⇢ ДД
Дмитрий Данилов
Составить программу для нахождения суммы по следующей формуле:
 |
где a вводится с клавиатуры
на Pascal
где a вводится с клавиатуры
на Pascal
Антон
аська 586178755
Пишите обсудим
или на почту
AM
Aston Martin
if a = 0 then WriteLn('Деление на 0.')
else
begin
Sum := 0;
for x := 3 to 10 do
Sum := Sum + (x + 1) / a;
WriteLn(Sum:0:3);
end;
Похожие вопросы