Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

Определите, что будет напечатано в результате работы следующего фрагмента программы: 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.

Ibecker2008 22 марта 2014 г., 6:15:34 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Elena08012004
22 марта 2014 г., 8:53:30 (10 лет назад)

1226 будет являтся результатом

Ответить

Другие вопросы из категории

Петр наугад тянет из непрозрачного мешочка одну конфету из 16.

Какое кол-во информации он получит ; когда достанет конфету, если все конфеты одинаковы по форме, но отличаются начинкой?

прооошу помогите перевести этот код delphi в паскаль,плиииз

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.

Определите значение переменной z после выполнения фрагмента алгоритма:

z:=1;
repeat z:=z+2 until z=10;


1) 9
2) 11
3) 10
4) 1
5) ни один из вышеперечисленных ответов не верен, мой ответ:


И в целом объясните) как то меня ввела в тупик эта задача)

Читайте также

//23. Определить что будет напечатано в результате выполнения фрагмента программы:

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.



Вы находитесь на странице вопроса "Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s:integer; begin s:=2; k:=2;", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.