Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл: Источник:
Скачиваний:
287
Добавлен:
04.03.2014
Размер:
1.11 Кб
Скачать
Задача:
Определить из каких цифр состоит число

Программа на языке Паскаль:
var
n:integer;
begin
write('Type integer: ');
readln(n);
if n<0 then
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.
Соседние файлы в папке Условные операторы. Циклы