Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=1; k:=0; while k < 13 do begin s:=s+2*k; k:=k+4; end; write(s+k); end.

ответ:ПОНЯЛ ВОТ ЭТОТ ОТВЕТ И БУДЕТ

Ну в уме логике же.

s = 0;

k = 1;

в цикле будет пока s<66

на первом шаге

k = 1 + 3 = 4

s = 0 + k = 4

след шаг (2)

k = 4 + 3 = 7

s = 4 + 7 = 11

след шаг (3)

k = 7 + 3 = 10

s = 11 + 10 = 21

след шаг (4)

k = 10 + 3 = 13

s = 21 + 13 = 34

след шаг (5)

k = 13 + 3 = 16

s = 34 + 16 = 50

очевидно, что на след шаге s будет равно 69 (значение k = 19)

после него проверка условия в цикле while не сработает, он будет пропущен и выведет программа

число 19

Объяснение:

Uses graphABC;procedure samolet(x:integer);
begin
setpencolor(clblack);
line(3+x,160,3+x,200);     // зад
line(3+x,160,30+x,180);
line(3+x,200,88+x,205);
line(30+x,180,100+x,175);
line(125+x,176,170+x,200);
line(170+x,200,172+x,202);
line(172+x,202,170+x,204);
line(170+x,204,115+x,205);
line(120+x,195,85+x,255);   //крыло
2line(85+x,255,75+x,258);
line(75+x,258,90+x,195);
line(95+x,175,105+x,125);       // крыло
line(105+x,125,116+x,128);
line(125+x,175,116+x,128);
setpencolor(clblue);          //пилот
floodfill(135+x,190,clred);
line(135+x,182,135+x,192);
line(135+x,192,158+x,194);
end;
var x:integer;
begin
lockdrawing;
for x:=1 to 640 do      //движения 
begin 
clearwindow; 
 samolet(x); 
sleep(10); 
redraw end;end.

Const l = 5;
var
a: array[1..l] of integer;
d: array[1..l] of real;
i, otr, k, m: integer;
begin
otr:=0; k:=0; m:=0;
//считаем массив а
for i:=1 to l do
  begin
    readln(a[i]);
    //если ввели положительное число,увеличим перем. otr на 1
    if a[i] < 0 then
      inc(otr);
    //если ввели отрицательное число,увеличим перем. k на 1
    //и к переменной m прибавим элемент
    if a[i] > 0 then
      begin
        inc(k);
        inc(m, a[i]);
      end;
  end;
//заполним массив d
for i:=1 to l do
  //если индекс четный, присвоим элементу otr
  //иначе присвоим среднее арифметическое
  if i mod 2 = 0 then
    d[i] := otr
  else
    d[i] := m/k;
end.