Программа не работает, нужно разложить 4-хзначное число на цифры var a,a1,a2,a3,a4: integer; begin write ('vv ch'); read (a); a1: = a/1000; a2: = a/100 mod 10; a3: = a/10 mod 10; a4: = a mod 10; write (a1,a2,a3,a4); end. где
Я бы сделал так: var a,a1,a2,a3,a4:integer; begin write ('Введите четырехзначное число: '); read (a); a1:= a div 1000; a2:= a div 100 mod 10; a3:= a div 10 mod 10; a4:= a mod 10; writeln ('Первая цифра: ',a1); writeln ('Вторая цифра: ',a2); writeln ('Третья цифра: ',a3); writeln ('Четвёртая цифра: ',a4); end. Этот вид более эстетичный ;)
var a,a1,a2,a3,a4:integer;
begin
write ('Введите четырехзначное число: '); read (a);
a1:= a div 1000;
a2:= a div 100 mod 10;
a3:= a div 10 mod 10;
a4:= a mod 10;
writeln ('Первая цифра: ',a1);
writeln ('Вторая цифра: ',a2);
writeln ('Третья цифра: ',a3);
writeln ('Четвёртая цифра: ',a4);
end.
Этот вид более эстетичный ;)