1. В какой системе счисления с минимальным основанием могут быть записаны перечисленные числа: 1011, 204, 1203, 312, 11042. ответ запишите цифрой, обозначающей основание системы счисления. Порошу с ответом

паскаль

откомпилирован: (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; }

написано для pascal abc

uses graphabc; begin window.title : = 'apple'; var y,y0,x,t: integer; brush.color : = clgreen; y0: =70; x: =70; lockdrawing; for t : = 0 to 8 do begin y: =y0+5*t*t; window.clear(clwhite); circle(x,y,50); redraw; sleep(100); end; end.

существует несколько стандартных разрешений монитора: 640 на 480, 800 на 600, 1024 на 768, 1280 на на 1024. т.е. 1310720 должно быть произведением этих параметров, получается разрешающая способность 1280 на 1024.

или

1280 x 1024 - это единственное стандартное разрешение, позволяющее вместить на экран ровно 1310720 px

var s: string; start,finish,i: integer; begin  {read(s); }  s: ='i aha, go home i';   start: =1;   for i : = 2 to length(s)+1 do begin      if (s[i] in [' ',',','.']) or (i=length(s)) then begin          finish: =i-1;           if s[start]=s[finish] then writeln(copy(s,start, finish-start+1));           start: =i+1;       end;   end; end.