Заданы числа a и b. определить, эти числа одного или разных знаков. на экране должно быть сообщение "числа одного знака" или "числа разных знаков" .

Program abc; var a,b: real; begin writeln ('введите а'); readln (a); writeln ('введите b'); readln (b); if a< 0 and b< 0 then writeln ('числа одного знака'); if a> 0 and b> 0 then writeln ('числа одного знака'); if a< 0 and b> 0 then writeln ('числа разных знаков'); if a> 0 and b< 0 then writeln (' числа разных знаков'); readln; end.

паскаль

откомпилирован: (pascal abc)

program z1; uses crt; var    n: integer;     i: integer; begin      write(' введите n :   ');       readln(n);             for i : = 1 to n do      begin                writeln(' число: ',i,' степень: ', i *i);       end; end.

 

си

откомпилирован: (dev cpp)

#include < stdio.h> #include < stdlib.h> #include < conio.h> #include < math.h> int main(){  int n = 0;     printf("\n vvedite n:   ");   scanf("%d", & n);   printf("\n chislo | stepen");   for(int i = 1; i < n; i++)  {                printf("\n %5d  |%5d ", i, i * i);   }  getch( );   return 0; }

var

  i: integer;

  a: array[1..16]of integer;

begin

  for i: =1 to 16 do

begin

  a[i]: =random(40)-20;

  if a[i] mod 3=0 then write(i,' ');

end;

writeln;

end.