определить значение пременной а после выполнения следуюших фрагментов программы:
10-11 класс
|
var a:real; i:integer;
a:=1; i:=1;
while i<5 do i:==i+1; a:=a+1*i;
var a:real; i:integer;
begin
a:=1;
i:=1;
while i<5 do
begin
i:=i+1;
a:=a+1*i;
end;
writeln(a);
end.
Такая программа, наверное) значит а=15
Другие вопросы из категории
ПЕРЕВЕСТИ
1265^10сс перевести в 2cc,8cc,16cc
10010011^2cc перевести в 8cc,10cc,16cc
344^8cc перевести в 10cc,16cc,2cc
9A1E^16 перевести в 2cc,8cc,10cc
и сообщение о количестве повторений.
Например:
Вход: Счастливого пути!
ДРУЗЬЯ
2
Выход: ДРУЗЬЯ
ДРУЗЬЯ
Счастливого пути!
Количество повторений - 2
Читайте также
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
s:=0; i:=7;
while i > 1 do begin
s:= s + i div 2;
i:= i - 1;
end;
х:=25;
у:=20;
while x*y<0 do;
begin
x:=x-5;
y:=y+2;
end;