3. А) Дан программный код, определи выходные данные(результат). a=5 ответ: if ab: print("max="_a)

qbasic

? "введите число"

input a

a: 2=b

if b=int(b) then 1 else 2

1 ? "это число четное" : goto 3

2 ? "это число не четное" 

3 end

так чтоли?

< html>   < head>       < title> анкета< /title>   < /head>   < body>       < h1> анкета< /h1>       < form>           какой браузер вы используете?           < select name="browser">               < option selected> internet explorer              < option> opera              < option> mozila          < /select>           < br/>           ваша электронная почта < input type="text" name="email" />           < br/>           ваше имя < input type="text" name="name" />           < br/>       < /form>       < a href="mailto: [email  protected]"> mailto: [email  protected]< /a>   < /body> < /html>

program t3;

var a,b,c: real;     {допустимо поменять на integer}

begin

writeln ('vvedit a,b,c');

readln (a,b,c);  

if (a< =b+c) and (b< =a+c) and (c< =a+b) then writeln ('0'); else

if (a=c) and (c=b) then writeln (3);   else

if (a=c) or (a=b) or (b=c) then writeln ('2'); else

writeln ('1');

readln

end. 

программа на паскале:

program xxx;

    var i, n, k : integer;

begin

  write('введите число n-');

  readln(n);

  k=0;

  for i: =1 to n do

      if n mod i = 0 then k: =k+1;

  write('количество делителей = ', k);

  readln

end.