Определите, что будет напечатано в результате выполнения следующего алгоритма: var s, k: integer; begin s: =1; for k: =1 to 30 do s: =(k-5)*s; write(s); end.

  в результате выполнения этой программы будет напечатан 0

 

  если трассировать программу по шагам то мы увидим что   s меняется в цикле вот так

 

  s1=-4

s2=12

 

  s3=-24

s4=24

 

 

начиная с 5 шага получаем (5-5)*s т.е   0 и далее чтобы мы на 0 не умножали так и будет 0

 

 

 

   

ответ: тигры занесены в красную книгу, к ним нужно относиться бережно : -)

program chetnechet;

var

  a, b, chet, nechet, otvet, i: integer;

begin

  write ('введите а, в: ');

  readln (a, b);

  chet : = 0;

  nechet : = 0;

  for i : = a to b do begin

    if i mod 2 = 0 then

      inc (chet)

    else

      inc (nechet);

  end;

  otvet : = chet - nechet;

  writeln ('четных: ', chet);

  writeln ('нечетных: ', nechet);

  writeln ('ответ: ', otvet);

  readln;

end.

объяснение:

for i : = a to b do begin

цикл перебирает числа от а до в включительно.

если верхняя граница должна быть в + 1 то есть на 1 больше, то исправьте

ответ:

объяснение:

2.

итерационные циклы

while, repeat - until

условие выполнения цикла может быть любым выражением, возвращающим тип boolean

шаг изменения любой

цикл с параметром

for

начальное и конечное значения - целые числа

шаг изменения параметра равно 1

количество итераций = [конечная граница] - [начальная граница] + 1

3.

цикл с предусловием  

while

минимальное количество итераций = 0 (случай, когда условие while не выполняется при первом проходе)

максимальное количество не ограничено

цикл с постусловием

repeat - until

минимальное количество итераций = 1 (условие выхода проверяется в конце цикла, хотя бы один раз цикл выполнится)

максимальное количество не ограничено