Теория - [решено] Помогите пожалуйсто с задачей Паскаль.

Светлана96

Дано натуральное число. Найти число десятков в его десятичной записи (то есть вторую справа цифру его десятичной записи).

Светлана96

Код:

var a,n:integer;
    begin
    readln(n);
    a:=(n mod 100) div 10;
    writeln(a);
    end.

Светлана96

Дано трехзначное число. Найдите сумму его цифр.не получается вот решение

Код:

Program Integer11;
var a,r,x,z,y,l:integer;
begin
readln(a);
x:=a div 100;
y:=a mod 10;
z:=(a div 10)mod 10;
r:=x+y+z;
Writeln('summa=',r)
end.

ferget · Сообщение **ferget** » 16 янв 2012, 20:13

Цитата Светлана96:

не получается вот решение

что именно не получается? вроде решение верное

так попробуйте

Код:

x:=a div 100;
y:=a mod 100 div 10;
z:=a mod 10;
r:=x+y+z;

Светлана96

спс

Drongo · Сообщение **Drongo** » 17 янв 2012, 01:53

Светлана96, А это на будущее -

.