помогите, программа не работает, нужно разложить 4-хзначное число на цифры
5-9 класс
|
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.
где ошибка!!!!????
Если я все правильно понял, нужно "/" заменить на div, т.к. вы используете тип integer.
Я бы сделал так:
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.
Этот вид более эстетичный ;)
Другие вопросы из категории
Составить программу, печатающую значение true, если указанное высказывание истинно, и false, в противном случае: произведение чисел N,F,G кратно V.
Читайте также
пришлите решение задач!..Даю хорошие баллы за это задание.Всем большое спасибо!
сообщение «Прохладно»; выше 15 градусов – «Жарко». 1. Составьте блок схему данной программы термометра. При каких температурных показателях программа не работает. 2. Записать на алгоритмическом языке
серый..Помогите пожалуйста...ставлю спасибо))) надеюсь на вашу помощь)))( программу не большую)