fork download
copy 
  1. {
  2. 	Задача:
  3. 	- степени двойки до MAX(25)
  4. 	Решение:
  5. 	- автор Дмитрий С. Кузнецов
  6. 	- цена $112.11
  7. }
  8. program Power25(INPUT, OUTPUT);
  9. const
  10. 	max = 25;
  11.  
  12. var
  13. 	n, i	: integer;
  14. 	k		: real;
  15.  
  16. begin
  17.  
  18. { Постер-приглашение }
  19. writeln('Введите число от 2 до ', max, '.');
  20. write(' >');
  21. readln(n);
  22.  
  23. { Загаловки }
  24. writeln('Степени двойки от 1 до ', n, '.');
  25. writeln(' Число', ' ':7, 'Степень двойка');
  26.  
  27. { Вывод }
  28. k := 2;
  29. for i := 1 to n do
  30. begin
  31. 	write(i:4);
  32.  
  33. 	writeln(k:18:0);
  34. 	k := k * 2;
  35. end;
  36.  
  37. { Конец }
  38.  
  39. end.
Success #stdin #stdout 0s 5312KB
comments (?)
stdin
copy 
45
stdout
copy 
Введите число от 2 до 25.
 >Степени двойки от 1 до 45.
 Число       Степень двойка
   1                 2
   2                 4
   3                 8
   4                16
   5                32
   6                64
   7               128
   8               256
   9               512
  10              1024
  11              2048
  12              4096
  13              8192
  14             16384
  15             32768
  16             65536
  17            131072
  18            262144
  19            524288
  20           1048576
  21           2097152
  22           4194304
  23           8388608
  24          16777216
  25          33554432
  26          67108864
  27         134217728
  28         268435456
  29         536870912
  30        1073741824
  31        2147483648
  32        4294967296
  33        8589934592
  34       17179869184
  35       34359738368
  36       68719476736
  37      137438953472
  38      274877906944
  39      549755813888
  40     1099511627776
  41     2199023255552
  42     4398046511104
  43     8796093022208
  44    17592186044416
  45    35184372088832
https://ideone.com/pJL1nb
language:
Pascal (fpc 3.0.4)
created:
2 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!