Целая часть от деления Остаток от деления 840 div 2 = 420 840 mod 2 = 0 420 div 2 = 210 420 mod 2 = 0 210 div 2 = 105 210 mod 2 = 0 105 div 2 = 52 105 mod 2 = 1 52 div 2 = 26 52 mod 2 = 0 26 div 2 = 13 26 mod 2 = 0 13 div 2 = 6 13 mod 2 = 1 6 div 2 = 3 6 mod 2 = 0 3 div 2 = 1 3 mod 2 = 1 1 div 2 = 0 1 mod 2 = 1 Остаток от деления записываем в обратном порядке. Получаем число в 2-ой системе счисления: 1101001000 840 = 1101001000
1) var a:array [1..4] of integer; var x,i,i1: integer; begin writeln('Введите 4-х значное число'); read(x); for i:=1 to 4 do begin a[i]:=x mod 10; if a[i] mod 3 = 0 then begin i1:=i1+a[i]; end; x:=x div 10; end; write(i1); end.
2) Немного не понял: var a:array [1..4] of integer; var i,n,y: integer; begin n:=1; for i:=1 to 4 do begin writeln('Введите ',n, ' число'); read(a[i]); if a[i]<0 then y:=y+1; n:=n+1; end; write('Отрицательных чисел: ',y); end.
3) var i,y,x: integer; begin writeln('Выберите действие: 1)y=x^3 + x; 2)y=(x+1)^2; 3)y=sqr(x+4)'); read(i); if i=1 then begin writeln('Введите x'); read(x); write('y=',(x*x*x)+x); end else begin if i=2 then begin writeln('Введите x'); read(x); write('y=',(x+1)*(x+1)); end else begin if i=3 then begin writeln('Введите x'); read(x); write('y=',sqrt(x+4)); end; end; end; end.
16
Объяснение:
S := 0 // Переменная S = 0
нц для i от 1 до 2 // Начинаем цикл от 1 до 2 включительно
нц для j от 2 до 3 // Начинаем цикл от 2 до 3 включительно
S := S + i + j // S = S + i + j
кц // Конец цикла
кц // Конец цикла
Всего будет 4 итерации (повторов) у циклов, т. к. первый цикл выполняется 2 раза, а вложенный в него второй цикл выполняется также 2 раза ⇒ 2 * 2 = 4
Итерация 1:
S = 0 // i = 1 // j = 2
S = 0 + 1 + 2 = 3
Итерация 2:
S = 3 // i = 1 // j = 3
S = 3 + 1 + 3 = 7
Итерация 3:
S = 7 // i = 2 // j = 2
S = 7 + 2 + 2 = 11
Итерация 4:
S = 11 // i = 2 // j = 3
S = 11 + 2 + 3 = 16