Предмет: Информатика,
автор: Edik1
вычислить 1+2+4+8+...+210
Нужно написать программу в паскале.
Ответы
Автор ответа:
0
var a,x:integer;
begin
for a:=0 to 210 do
if (a mod 2=0) or (a=1) then
x:=a+x;
writeln(x);
end.
begin
for a:=0 to 210 do
if (a mod 2=0) or (a=1) then
x:=a+x;
writeln(x);
end.
Автор ответа:
0
Скорее всего прогрессия следующая : 1+2+4+8+16+32+....+210;
Автор ответа:
0
И решение выглядит так: var i,s,a,n :integer;
begin
writeln('Введите конечное число');
readln(n);
s:=0;
a:=1;
for i:=1 to n do
begin
s:=s+a;
a:=2*a;
end;
writeln('Сумма ряда : s= ',s)
end.
begin
writeln('Введите конечное число');
readln(n);
s:=0;
a:=1;
for i:=1 to n do
begin
s:=s+a;
a:=2*a;
end;
writeln('Сумма ряда : s= ',s)
end.
Автор ответа:
0
Немного накосорезил ,не конечное число ,а кол-во шагов. Как ограничить конечным числом чёт не соображу, еще учусь.
Автор ответа:
0
да ладно, 10 недель назад было, чего паришься?)
Автор ответа:
0
автор вопроса уж сам забил давно
Интересные вопросы
Предмет: Другие предметы,
автор: daryadahylya09
Предмет: Алгебра,
автор: aliiak
Предмет: Русский язык,
автор: rodnaevavika84
Предмет: Химия,
автор: Sonechka98sonechka