Дана последовательность чисел 5,9,13,17........Сколько слагаемых следует взять чтобы получить сумму равную 3164.Составьте программу для паскаль и блок схему,через систему Writeln do
Answers & Comments
Veter0k
Var x,i:integer; begin x:=5; i:=1; while (x<>3165) do begin x:=x+4; i:=i+1; end; writeln(i); end.
Veter0k
3164 не получится никак, вероятнее всего, подразумевалось 3165 как самое близкое. если это так, то программа уже есть, иначе просто заменить одно число
Answers & Comments
begin
x:=5;
i:=1;
while (x<>3165) do begin
x:=x+4;
i:=i+1;
end;
writeln(i);
end.