Главная

Извлечение цифр числа

вс, 09/11/2011 - 11:29 — tech
Задача: 

Определить из каких цифр состоит число

Программа на языке Паскаль:  

var
    n:integer;
begin
    write('Type integer: ');
    readln(n);
    if nthen
        n:=-n; // уничтожение знака числа 
    repeat
        writeln(n mod 10); // вывод последней цифры числа
        n:= n div 10; // удаление последней цифры числа
    until n=0;
readln
end.

  • Добавить комментарий

Комментарии

ср, 12/07/2011 - 09:28 — tech

Похожая задача

Найти сумму первой и последней цифр любого целого положительного числа.

var
        a, b, sum, n: longint;
begin
        readln(n);
 
        a := n mod 10; // последняя цифра 
        n := n div 10;
        while n > 0 do begin
                b := n mod 10;
                n := n div 10;
        end;
 
        writeln(a+b);
readln;
end.

Более компактное решение:

Program SumPP;
var a: longint;
      b: byte;
 
begin
write('Введите значение ?: ');
readln(a);
a := abs (a);
b := a mod 10;
while a >= 10 do a := a div 10;
writeln('Сумма первой и последней цифры А равна ', b+a);
end.

Еще одно решение:

program n1;
uses crt;
var a,b,c,d:integer;
begin
writeln('введите число');
readln(a);
d:=a mod 10;
repeat
 b:=a mod 10;
 a:=a div 10;
until a=0;
c:=d+b;
writeln('сумма первой и последней цифры равна: ',c);
end.

  • ответить
вс, 11/20/2011 - 15:33 — Гость

Начала программирования

Огромное спасибо, от "чайника", решившего впитать азы программирования. Веду информатику в основной школе(1+2 часа). Ваши разработки помогут при включении задач на программирование при знакомстве ребят с основами алгоритмизации в 9 классе. Задачи описаны четко, практико ориентированы, это ребятам будет интересно.

  • ответить