Программа должна выводить 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.
У меня получается 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.
More Questions From This User See All
Answers & Comments
Verified answer
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.