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