Один человек в 8 утра увидел НЛО. В течение 15 минут он встретил трех
своих знакомых и рассказал об этом. В течение следующих 15 минут каждый из
этих троих тоже встретил трех своих знакомых и т. д. Продемонстрируйте
процесс, пока количество людей не станет больше 100 0 Сколько пройдет
часов? (сделать через ms exel)

паскаль

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

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.

2 единицы в двоичной записи числа 1025

10000000001