Простая задачка

[dimon_snake]

Дано двуцифровое число, вычислить сумму его цифр

var
a:byte;
begin
read(a);
write(a div 10 + a mod 10);
end.

Что я делаю не так?

[type_Oleg]

Сообщение от dimon_snake

Что я делаю не так?

Да вроде все так. Если числа - только целые и положительные.
Только вставь ReadLn; перед end. . Чтоб сразу окошко не закрывалось.

[Вадим Мошев]

А в чём у вас проблема?

[newerow1989]

var
   a:byte;
begin
   readln(a);
   writeln(a div 10 + a mod 10);
   Readln;
end.

[ViktorR]

А в чём у вас проблема?

У него проблема тут:

begin
read(a);
write(a div 10 + a mod 10);
end.

При чтении данных с клавиатуры следует использовать readln(), поскольку read() оставляет в буфере служебный код от Enter.
Процедура read() полезна при чтении данных из файла, например, когда через файл инициализируется матрица: данные записаны в текстовый файл в матричном представлении:

m n
a11 a12 a13 ... a1n
a21 a22 a23 ... a2n
......
am1 am2 am3 ... amn

Первые два значения читаем через readln(), затем в цикле считываем n-1 элемент через read(), а n-ый - через readln() и т.д.


Как-то так, ...

[dimon_snake]

Сообщение от Вадим Мошев

А в чём у вас проблема?

Нашел задание
Написал вот этот код
Отправляю - 50%
Не могу понять, в чем там может быть ошибка

Сообщение от ViktorR

У него проблема тут:

begin
read(a);
write(a div 10 + a mod 10);
end.

При чтении данных с клавиатуры следует использовать readln(), поскольку read() оставляет в буфере служебный код от Enter.
Процедура read() полезна при чтении данных из файла, например, когда через файл инициализируется матрица: данные записаны в текстовый файл в матричном представлении:

m n
a11 a12 a13 ... a1n
a21 a22 a23 ... a2n
......
am1 am2 am3 ... amn

Первые два значения читаем через readln(), затем в цикле считываем n-1 элемент через read(), а n-ый - через readln() и т.д.


Как-то так, ...

Да нет, что read, что readln - одинаково
А эта программа подойдет и для отрицательного двуцифрового числа?
Просто, когда используешь тип byte, то выдает ошибку компиляции, а когда integer - неправильный ответ.

[type_Oleg]

Сообщение от dimon_snake

Не могу понять,

Я тоже. У меня все работает. Я тупо скопировал, вставил в Geany, все норм.
А ты до сих пор не можешь объяснить, что именно не так..

[Аватар]

Дано двуцифровое число, вычислить сумму его цифр

Ну двухцифровое число может быть и отрицательным. Почему нет? Тогда a: smallint и работать с abs(a)

[dimon_snake]

Сообщение от Аватар

Ну двухцифровое число может быть и отрицательным. Почему нет? Тогда a: smallint и работать с abs(a)

Да, действительно
Благодарю!

[type_Oleg]

А вот в Delphi пришлось заменить read(a) на readLn(a) как писал ViktorR.
Иначе закрывалось, несмотря на еще один ReadLn в конце.