Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Vova99
0 / 0 / 0
Регистрация: 22.11.2011
Сообщений: 8
1

Вывести таблицу степеней двойки

08.12.2011, 18:28. Просмотров 1027. Ответов 1
Метки нет (Все метки)

Написать программу, которая выводит таблицу степеней двойки (от 0 до N). Исходные данные (N ) вводятся из файла Input.txt. Результаты работы программы записываются в файл Out.txt.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2011, 18:28
Ответы с готовыми решениями:

Написать программу, которая выводит таблицу степеней двойки
Помогите, пожалуйста, составить программу и блок-схему. Написать программу,...

Составить программу, которая выводит на экран таблицу степеней двойки от 0 до 10.
Составить программу, которая выводит на экран таблицу степеней двойки от 0 до...

Вывести на экран таблицу степеней 2 в степени n
1) Составить программу вывода на экран таблицы степеней 2 в степени n, где 0...

Вывести на экран таблицу степеней числа 5 от нулевой до n-ой
Написать программу, выводящую на экран таблицу степеней числа 5 от нулевой до...

Вывести на экран таблицу степеней числа 5 (от нулевой до 12-й)
Пользователь вводит целое положительное число m. Найти наименьшее натуральное...

1
TheZzZ
13 / 13 / 17
Регистрация: 26.05.2011
Сообщений: 37
08.12.2011, 20:06 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
program Stepen;
Var Input:Text;
    Outt:Text;
    S,d:String;
    st,otv:integer;
    i:byte;
 
begin
 
  Assign(input,'Input.txt');
  Assign(Outt,'Outt.txt');
  Rewrite(Outt);
  Reset(input);
  While not eoln(input) do
    read(input,s);
  st:=strtoint(s);
  Close(input);
  s:='|';
  d:='|';
  otv:=1;
  For i:=1 to st do
    Begin
      d:=d+'   '+inttostr(i)+'   |';
      s:=s+'-------|'
    end;
  Writeln(Outt,d);
  Writeln(Outt,s);
  d:='|';
  s:='|';
  For i:=1 to st do
    Begin
      otv:=otv*2;
      if otv<10 then
        d:=d+'   '+inttostr(otv)+'   |';
      If (otv>10) and (otv<100) then
        d:=d+'  '+inttostr(otv)+'   |';
      If (otv>100) and (otv<100) then
        d:=d+'  '+inttostr(otv)+'  |';
      if otv>1000 then
        d:=d+' '+inttostr(otv)+'  |';
      s:=s+'_______|'
    end;
  Writeln(Outt,d);
  Writeln(Outt,s);
  Close(Outt);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2011, 20:06

Вывести на экран таблицу степеней для произвольного числа
Составить программу, которая выводит на экран таблицу степеней для...

Удалить из строки элементы, стоящие на позициях степеней двойки?
Подскажите,как удалить из строки элементы, стоящие на позициях степеней двойки?

Написать программу, которая выводит таблицу степеней двойки
Будьте добры помогите решить 3 задачи по циклам!!! Буду очень признателен! =) ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru