Дана программа:

program primer3;

uses crt;

var x:integer;

begin

clrscr;

readin (x) ;

if x mod 2=0 then wtiteln ('да')

else wtiteln ('нет')

При каком значении x будет получен ответ 'ДА'?

Дана программа program primer3 usus crt; var x: integer; begin clrscr; readlin (x) ; if x mod 2=0 then writeln (да) else writeln (нет) при каком значении х будет получен ответ да

Какое число будет напечатано в результате выполнения программы: var i, k: integer; function f (x: integer) : integer; var m: integer; begin if x < 10 then f : = x else begin m : = f (x div 10) ; if m < x mod 10 then f : = x mod 10 else f : = m; end;

Uses crt; var n, s, s1, s2, k:integer; begin writeln ('Введите число: ') ; readln (n) ; s:=0; s1:=0; s2:=0; while n>0 do begin inc (k) ; if k mod 2 = 0 then begin s:=s+n mod 10; n:=n div 10; end else begin s1:=s1+n mod 10; n:=n div 10; end;

Program Pr1; uses crt; var fl1, fl2:text; i, n, v, a, b:integer; Begin clrscr; assign (fl1,'input. txt') ; assign (fl2,'output.

Где здесь ошибка? 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;