Найдите ошибки в следующих программах:

Program int_r;

Var a, x:integer;

b, c:real;

Begin

a:=10;

b:=5.2;

x:=b div 2;

c:=round (x) ;

End.

Program int_r1;

Var a, c:integer;

b, d:real;

Begin

a:=25;

b:=a/2;

c:=sqr (a) ;

d:=a mod 10;

End.

Определить значение выражения: 1) 10 div 15 2) 10 div 2 3) 10 mod 2 4) 10 mod 17 5) 123 mod 10 6) 123 div 10 7) 1 div 2 8) 123 mod 1000 9) 100 mod 27 div 3 10) 100 div 5 mod 3 11) 98725 div 1000 mod 10 12) 100 mod 5 div 3

Почему не выдает числа? uses crt; var i:integer; begin for i: = 100 to 999 do if i = ((sqr (i div 100) * (i div 100)) + ((sqr (i div 10) mod 10) * (i div 10) mod 10) + (sqr (i mod 10) * i mod 10)) then writeln (i) ; end.

Тест: Операторы целочисленной арифметики div и mod 1. Вычислите: 25 div 11 2.27 3 2 2. Вычислите: 64 div 9 1 7 6 3. Вычислите: (35 div 2) div 5 2 17 3 4. Вычислите: (78 div 5) mod 10 5 15 10 5. Вычислите: (25 mod 11) + (18 mod 7) 3 7 4 6.

Что напечатает следующая программа? program p3; var x, y:integer; procedure p1 (var a, b:integer) ; begin a:=sqr (a) ; b:=sqr (a) + a; end; procedure p2 (a, b:integer) ; begin a:=sqr (a) ; b:=sqr (b) + b; end; begin x:=2; y:=2; p1 (x, y) ;

Где здесь ошибка? program P12; uses crt; var a, b, c:real; i, n:integer; function F (x:real) : real; begin f:=sqr (sqr (x)) + (sqr (x)) * x-8*x (sqr (x)) + 5*x-3-cos (2*x) ; end; begin clrscr; a:=0; b:=1; n:=20; for i:=1 to n do begin c: = (a+B) / 2;