0 / 0 / 0
Регистрация: 12.12.2019
Сообщений: 1
1

Исправить ошибку.

12.12.2019, 13:30. Показов 209. Ответов 1
Метки нет (Все метки)

Исправите, пожалуйста, ошибку!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program while_3;
 
var n, r, a:integer;
Var k,i: array [0..10] of integer; 
begin readln (n);
k:= 0;
while n
  >0
  do
    begin inc (k);
r:= n mod 2;
  if r 
  = 1 then a[k]:= (-n) mod 4 + 2;
  if r
  = 0 then a[k]:= 0;
n:= (n - a[k]) div 2;
  end;
  for i
  := k downto 1
    do
      write (a[i], ' ');
    end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2019, 13:30
Ответы с готовыми решениями:

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

Исправить ошибку в коде
Исправьте пожалуйста. Заранее спасибо!)) uses GraphABC; procedure KeyDown(key:integer); begin...

Как исправить ошибку
Условие Есть код на паскале: program CiclSdvig; var a:arrayof integer; i,n,s:integer;...

Исправить ошибку в коде
Что не так? задание: Написать подпрограмму для вычисления ординаты точки М(х,у), принадлежащей...

1
2451 / 1221 / 501
Регистрация: 19.03.2019
Сообщений: 4,008
12.12.2019, 13:49 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program while_3;
 
var n, r, i, k:integer;
  a: array [0..10] of integer;
begin
  readln (n);
  k:= 0;
  while n>0 do
  begin 
    inc (k);
    r:= n mod 2;
    if r= 1 then a[k]:= (-n) mod 4 + 2;
    if r= 0 then a[k]:= 0;
    n:= (n - a[k]) div 2;
  end;
  for i:= k downto 1 do
     write (a[i], ' ');
end.
Добавлено через 59 секунд
я исправил только синтаксис, логику задачи не правил, т.к. задания нет (непонятно, что должен код делать)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.12.2019, 13:49

Исправить ошибку в коде
program i; var Numzap:integer; begin {I-} reset(personfile); {I+} if 1 o result t<>0 then...

Исправить ошибку в программе
program Lab3_3; var N, k, Summa: integer; begin writeln ('Лабораторная работа № 3,...

Процедуры: исправить ошибку
что делаю не таак? ошибка в 26 строке program zadacha_1; uses crt; type natur=1..maxint; ...

Как исправить ошибку?
Внутренняя ошибка компилятора в модуле :'System.Exception: System.ArgumentNullException: Value...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru