Дано трехзначное число. Вычислить сумму больших цифр этого числа. ** паскале. У меня есть...

Question

Дано трехзначное число. Вычислить сумму больших цифр этого числа. На паскале. У меня есть одна мысль, но так и не могу понять, где ошибка. program work; var x,y,z,a:integer; begin writeln('введи трехзначное число'); readln(a); x:=a div 100; y:=a div 10 mod 100; z:=a mod 10; if (x>y) then if (y>z) then a:=x+y else a:=x+z else if (x>z) then a:=x+y else a:=y+z; writeln(a); end. ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!

Comments

Ошибка здесь: y:=a div 10 mod 100;

---

Да, спасибо, я вчера ещё раз пересмотрел, и увидел. НО все рано спасибо!!! Не думал, что кто нибудь откликнется, но вам - спасибо!!!

Answer 1

Ответ:

Объяснение: попробуйте вместо ввода трехзначного числа с последующей разбивкой его по разрядам ввести три разных числа а1,а2,а3 последовательно если принципиально что бы они отображались на экране добавьте еще переменную b например и пропечатайте ее b:=a1*100+a2*10+a3 writeln(b) а так в условных операторах у вас по моему ошибок нет