Определите значение переменной спосле выполнения следующего фрагмента программы:
10-11 класс
|
a := 56;
b := 2;
k := 5;
a := a/8 – b;
if a > b then
c := 10*a – k*b
else
c := 10*a + k*b;
var a,b,k,c:real;
begin
a:=56;
b:=2;
k:=5;
a:=(a/8)-b;
if a > b then
c:=(10*a)-(k*b)
else
c:=10*a+k*b;
writeln(c);
end.
С = 40
Другие вопросы из категории
объяснением. Спасибо!!!!
было забавно написано о продаже маленькой собачки,декоративной породы.разрешите путаницу и напишите,что же хотел выставить на продажу невнимательный программист.
о первым) на участке в 100 гектар средняя урожайность ячменя составила 20 центнеров с гектара После этого каждый гол площадь участка увеличивалась на 5%, а средняя урожайность на 2%. Определить:
а) в каком году урожайность превысит 22 центнера с гектара,
б) в каком году площадь участка станет больше 120 гектар;
в) в каком году общий урожай, собранный за все время, начиная с первого года, превысит 800 центнеров.
Читайте также
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
выполнения следующего фрагмента программы, в котором a, b и c –
переменные вещественного (действительного) типа.
1. For i :=1 to 7 do S := S + i * i;
2. For x := -3 to 5 do 5 do K := K+ABS(X);
3. For a := 10 downo 2 do P :=P*a;
4. For i := 2 to 6 do
begin
K:=K+1;
S:=K+i;
end;
Сколько раз выполнится тело цикла, и чему будут равны значения встречающихся в программе переменных после выполнения каждого фрагмента программы?
5. i :=2; S:=0;
While S<0 do begib S:= S+i; i:+2; end;
6. x:=1 ; S:=10 ;
While x <=10 do x:=x*2 ;
S:= S+x
7. a:=0; S:=0 ;
While a> 0 do S :=S +a;
a:=a+1;
8 . a:=1;
Repeat
R := 2*a;
a:= a+1 ;
until R < 1;
9. a:=1; b:=1;
While a+b < 8 do begin a :=a+1; b := b+2 end;
S := a+b;
10. S:=0; P:= 10; k:= 1;
Repeat
S:= S+k*k;
k :=k+2;
until S > P;
11. For i :=2 to 6 do begin
K:= K+1; S:= K+i;
end;
12. for i:= 1 to 4 do S :=S+i*i; S: S*2;
Определите значение переменной с после выполнения следующего фрагмента программы
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