Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s:integer; begin s:=2; k:=2;
10-11 класс
|
while k < 50 do begin
s:=s+k;
k:=k+1;
end;
write(s);
end.
1226 будет являтся результатом
Другие вопросы из категории
Какое кол-во информации он получит ; когда достанет конфету, если все конфеты одинаковы по форме, но отличаются начинкой?
program TaskFormula;
uses
var x, a, xn, xk, dx, sum, multiplNegative: real;
countNegative: integer;
j,m,f:real;
y: Real;
begin
writeln('a --> ');
Read(a);
writeln(' xn --> ');
Read(xn);
writeln(' xk --> ');
Read(xk);
writeln(' dx --> ');
Read(dx);
sum := 0;
multiplNegative := 1;
countNegative := 0;
x := xn;
While (x <= xk) do begin if (a+x < 0) then begin f:=(a+x)*-1;
f:=ln(f)*(-1);
j:= RoundTo(abs(a-sqr(x)) * f,-5);
end
else
j:= RoundTo(abs(a-sqr(x)) * ln(a+x),-5);
m:= Power(sqr(x),1/3)+ Power(a,1/5);
if j<0 then begin j:=j*(-1);
j:= Power(j, 1/3);
j:=j*(-1);
end
else
j:= Power(j, 1/3);
y:= RoundTo(j/m,-5);
write('x= ',x:5:3,' ');
writeln('y= ',y:7:5);
if y<0 then
begin
sum := sum + y;
multiplNegative := multiplNegative * y;
inc(countNegative);
end;
x:= x + dx;
end;
writeln;
writeln(' y = ',countNegative);
writeln('y = ',sum:7:5);
writeln(' y = ',multiplNegative:7:5);
Readln;
end.
ввода является число 9999.
z:=1;
repeat z:=z+2 until z=10;
1) 9
2) 11
3) 10
4) 1
5) ни один из вышеперечисленных ответов не верен, мой ответ:
И в целом объясните) как то меня ввела в тупик эта задача)
Читайте также
while k < 25 do begin
s:=s+k;
k:=k+2;
end;
write(s);
end.
while k < 11 do begin
s:=s+k;
k:=k+1;
end;
write(s);
end.
int[] mas = new int [] {-1, 0, 2, -8, 4, -9, 3, -4, 9, -3 };
int i = 0;
while (mas[i] < 0)
{ i++; Console.WriteLine(mas[i]);}
//24.Определить что будет напечатано в результате выполнения фрагмента программы:
int[] mas = new int[] { -1, 0, 2, -8, 4, -9, 3, -4, 9, -3 };
int i = 5;
do i--; while (mas[i] > 0);
Console.WriteLine(i);
//25.Определить что будет напечатано в результате выполнения фрагмента программы: int[] mas = new int[] { -1, 0, 2, -8, 4, -9, 3, -4, 9, -3 };
int k = 0; foreach (int el in mas)
if (el > 0) k+=el;
Console.WriteLine(k);
var n, s: integer;
begin
n := 4;
s := 0;
while n <= 8 do begin
s := s + n;
n := n + 1
end;
write(s)
end.