Определите значение переменной s после выполнения следующего фрагмента программы:
10-11 класс
|
s:=0; i:=7;
while i > 1 do begin
s:= s + i div 2;
i:= i - 1;
end;
Составил код в Visual Studio, в итоге получилось 27
Другие вопросы из категории
(x-1)(x-3)(x-7)...(x-63)/(x-2)(x-4)(x-8)...(x-64)
pascal abc
Вот как моя программа выглядит, но она не работает.
program fggt;
var a,b,o,x:real;
begin
writeln('x');
readln(x);
a:=1;
b:=2;
while a<=63 do
begin
o:=(x-a)/(x-b);
a:=a-1;
b:=b*2;
end;
writeln('o=',o);
end.
элементов исходного массива.
Читайте также
a :=40 ;
b := 10;
a := - a / 2*b,;
if a > b then
c := b - a
else c := a - 2 * b
2)Определите значение переменной c после выполнения следующего фрагмента программы:
a := 5;
a := a + 6;
b := - a;
c := a - 2 * b
Определите значение переменной с после выполнения следующего фрагмента программы
s:=1;i:=1;
while i<5 do
begin
s:=s+i*(i+1);
i:=i+1;
end;
Прошу объяснить решение подобных программ на данном примере
а :=-5;
b :=5+7*а;
b :=b/2*f
А)65
В) -70
С) 75
D) -65
х:=25;
у:=20;
while x*y<0 do;
begin
x:=x-5;
y:=y+2;
end;
100
b := -50
а := а - b * 3
если а > b то с := а - b
иначе с := b - а
всё
Варианты ответов: 1)с=0 , 2)с= - 300 , с=250 , 4)с=400