Составить по этому алгоритму на языке паскаль.

program z1;

  var k,a,b: real;

    begin

      writeln('введите число а');

      readln(a);

      writeln('введите число в');

      readln(b);

      k: =0;

      if a> =0 then k: =k+1;

      if b> =0 then k: =k+1;

      writeln('k равно ',k);

      readln;

    end.

program n_1;

var k : integer; a, b: real;

begin

    read (a, b);

    k: =0;

    if a> =0 then k: =k+1;

    if b> =0 then k: =k+1;

    writeln(k);

end.

ответ:

#include

using namespace std;

int main()

{

setlocale(lc_all, "russian");

double a, b;

cout < < "введите а и б" < < endl;

cin > > a > > b;

if ((a < = 0 & & b < = 0) || a > 0 & & b > 0)

  cout < < "да";

else cout < < "нет";

    return 0;

}

#include

using namespace std;

int main()

{

setlocale(lc_all, "russian");

double a;

cout < < "введите температуру " < < endl;

cin > > a ;

if (a > 60)

  cout < < " ситуация";

return 0;

}

объяснение:

ответ: тигры занесены в красную книгу, к ним нужно относиться бережно : -)

program chetnechet;

var

  a, b, chet, nechet, otvet, i: integer;

begin

  write ('введите а, в: ');

  readln (a, b);

  chet : = 0;

  nechet : = 0;

  for i : = a to b do begin

    if i mod 2 = 0 then

      inc (chet)

    else

      inc (nechet);

  end;

  otvet : = chet - nechet;

  writeln ('четных: ', chet);

  writeln ('нечетных: ', nechet);

  writeln ('ответ: ', otvet);

  readln;

end.

объяснение:

for i : = a to b do begin

цикл перебирает числа от а до в включительно.

если верхняя граница должна быть в + 1 то есть на 1 больше, то исправьте