9. Запишите, какое значение будет иметь переменная s1 после выполнения фрагмента программы:

s:='123456789'
s1:=s [3:7]

s:='123456789' ;
s1:=copy (s, 3, 5);

Проверьте ответ с компьютера​

бег - бог - бок - бак - мак - маг -шаг

s : = 0

for i : = 1 to n do

  if i mod 2 = 1 then

      s : = s - 1/2/n

  else

      s : = s + 1/2/n;

1)котят 7

2)рыжих котят 5

3)зелоноглазых котят 3

4)котят рыжих и зеленоглазых 3

5)котят рыжих или зеленоглазых 3

6)рыжих и не зеленоглазых котят 3

7)не рыжих и не зеленоглазых 1

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.