Question

Программа должна выводить 1,2,3 Если я ввиду 123 У меня получается 1 0 3 (без запятых почему то) Что у меня неправильно записано??? Помогите пожалуйста,очень нужно program GO; var a,b,c,d:integer; begin writeln('Введите трехзначное число'); readln(a); b:= a div 100; c:= c mod 10; d:= a mod 10; writeln(b,' ',c,' ',d); end.

Answer 1

var

   a, b, c, d: integer;

begin

   writeln('Введите трехзначное число');

   readln(a);

   b := a div 100;

   c := a div 10 mod 10;

   d := a mod 10;

   writeln(b, ', ', c, ', ', d);

end.

Answer 2

В вашей программе есть несколько ошибок. Вот исправленный код:

pascalCopy code
program GO;
var
  a, b, c, d: integer;

begin
  writeln('Введите трехзначное число');
  readln(a);

  b := a div 100;
  c := (a div 10) mod 10;
  d := a mod 10;

  writeln(b, ', ', c, ', ', d);
end.

Изменения, которые я внес:

1. В строке c := c mod 10; вы использовали переменную c, которая не была инициализирована. Я исправил это, заменив на (a div 10) mod 10, чтобы получить вторую цифру числа.

2. Добавил запятые внутри вызова writeln, чтобы числа выводились через запятые.

Теперь программа должна выводить числа 1, 2 и 3 при вводе 123.