| Светлана96 |
16-01-2012 17:06 1837175 |
Помогите пожалуйсто с задачей Паскаль.
Дано натуральное число. Найти число десятков в его десятичной записи (то есть вторую справа цифру его десятичной записи).
|
Код:
var a,n:integer;
begin
readln(n);
a:=(n mod 100) div 10;
writeln(a);
end.
|
| Светлана96 |
16-01-2012 20:13 1837342 |
Дано трехзначное число. Найдите сумму его цифр.не получается вот решение
Код:
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.
|
Цитата:
Цитата Светлана96
не получается вот решение »
|
что именно не получается? вроде решение верное
так попробуйте
Код:
x:=a div 100;
y:=a mod 100 div 10;
z:=a mod 10;
r:=x+y+z;
|
| Светлана96 |
16-01-2012 21:53 1837402 |
спс
|
Время: 13:02.
© OSzone.net 2001-
