юлек ЗФ
Ученик
(111),
на голосовании
8 лет назад
Голосование за лучший ответ
Андрей Винк
Искусственный Интеллект
(151251)
8 лет назад
Остаток от деления числа на 10.
А поможет в этом оператор mod
answer := Num mod 10;
Переменной answer будет присвоено значение, равное остатку от деления Num на 10 – то есть, искомая его последняя цифра.
…Гений (84696)
8 лет назад
Чуть подправлю.
answer:=abs(Num) mod 10;
Попробуйте WriteLn(-102 mod 10);
Андрей Винк
Искусственный Интеллект
(151251)
Согласен, недоглядел про отрицательные числа.
А все от того, что по дурной привычке привычке “целое == целое положительное”…
Задача. Дано натуральное число N. Вывести его последнюю цифру.
Приведем 3 способа решения данной задачи:
- с использованием операции mod;
- с использованием строкового типа данных string;
- с использованием функции digits из модуля School.
Способ 1 (с использованием операции mod)
Последняя цифра натурального числа показывает количество единиц в числе. Вычислим эту цифру делением на 10.
Воспользуемся операцией целочисленного деления mod.
Покажем деление нацело на схеме:
Если вычислить целый остаток от деления числа на 10 – это и будет последняя цифра числа.
Операция вычисления целого остатка от деления в языке Паскаль – это mod.
Запишем выражение для вычисления последней цифры натурального числа N:
d:=N mod 10;
Программа для решения задачи на языке Паскаль
var N,d:integer;
begin
println(‘Введите натуральное число N’);
readln(N);
d:=N mod 10; //целый остаток от деления числа N на 10
println(‘Последняя цифра числа’,d);
end.
Результат запуска программы
Дополнительно об операциях целочисленного деления div и mod (читать).
Способ 2 (с использованием строкового типа данных string)
var N,d:integer; str:string; c:char;
begin
println(‘Введите натуральное число’);
readln(N);
str:=N.ToString; //преобразовать число N в строку str
c:=str[str.length]; //последний символ строки str
d:=c.ToDigit; //преобразовать символ в цифру
println(‘Последняя цифра числа’,d);
end.
Способ 3 (с использованием функции digits из модуля School)
uses school;
var N,d:integer;
mas:array of integer;
begin
println(‘Введите натуральное число’);
readln(N);
mas:=digits(N).toArray;//получение списка цифр и преобразование списка в массив
d:=mas[mas.Length-1];//последний элемент массива mas
println(‘Последняя цифра числа’,d);
end.
Каким способом следует воспользоваться для решения следующей задачи:
Дано натуральное число. Вычислить сумму его цифр.
Узнай цену своей работы
Формулировка задачи:
Дано натуральное число. Выведите его последнюю цифру.
Пример
Ввод Вывод
179 9
Код к задаче: «Последняя цифра»
textual
Листинг программы
var a:integer; i:integer;
begin
write('Введите число: ');
readln(a);
i := (a mod 10);
Write('Последние число = ',i);
end.
Полезно ли:
6 голосов , оценка 4.000 из 5
Похожие ответы
- Вывести последнюю цифру a^b
- Напишите процедуру, которая вычисляет трёхзначное число m, состоящее из трех цифр
- В текстовом файле в строке с заданным номером k>0 подсчитать количество цифр
- Отсортировать массив в порядке убывания и найти разницу первого и последнего элементов
- Для заданного натурального числа n найти старшую цифру
- Напечатать все слова, не содержащие ни одной цифры
- Напечатать те слова последовательности, которые отличаются от последнего слова
- В каждой строке текстового файла f найти самую длинную последовательность цифр
- Заполнить массив Y нарастающими суммами элементов массива X. Вывести последнюю сумму
- Написать программу, которая генерирует четырехзначное число и определяет, есть ли в числе одинаковые цифры
- Выяснить, чего в тексте больше: букв или цифр
Function RootsCount(a,b,c:real):integer;
var d:real;
begin
d:=b*b-4*a*c;
if d>0 then RootsCount:=2
else if d=0 then RootsCount:=1
else RootsCount:=0;
end;
var a,b,c:real; i:integer;
begin
for i:=1 to 3 do
begin
writeln(i,’) a,b,c:’);
readln(a,b,c);
writeln(‘Количество корней = ‘,RootsCount(a,b,c));
end;
end.
Пример:
<span>1) a,b,c:
1 2 3
Количество корней = 0
2) a,b,c:
-4 5 6
Количество корней = 2
3) a,b,c:
-2 8 -8
Количество корней = 1</span>
Ответ: 8.
Объяснение:
510₁₀ =
= 256 + 128 + 64 + 32 + 16 + 8 + 4 + 2 =
= 1∙2⁸+1∙2⁷+1∙2⁶+1∙2⁵+1∙2⁴+1∙2³+1∙2²+1∙2¹+0∙2⁰ =
= 111111110₂
На паскаль
var i,j,k:longint;
begin
read(i);
if i < 10 then write(‘Число меньше 10. Поэтому оно не имеет двузначный делитель’);
for j:=10 to 99 do
if i mod j=0 then inc(k);
if k=0 then write(‘Ваше число не имеет двузначный делитель’) else write(‘Ваше число имеет ‘,k,’ делителей’);
end.
2^6=64. Один символ несет 6 бит информации. 20*6 = 120 бит = 15 байт
Согласен с 1им ответом все правильно
0 рейтинг
Как вывести последнюю цифру числа pascal
- вывести
- последнюю
- цифру
- числа
- pascal
- 5 – 9 классы
- информатика
W2991_zn
в разделе Информатика
0
Последнюю цифру от натурального числа в паскале?
Orimir_zn
Начинающий
0
да
аноним
Всего ответов: 2
0 рейтинг
var n:longint;
begin
readln(n);
writeln(n mod 10);
end.
Программа будет работать при условии, что число натуральное и не больше 2*10^9
daniilkey_zn
Одаренный
0
спасибо большое
_zn
БОГ
0 рейтинг
b – последняя цифра, a – исходное число
b:= a mod 10;
Чтобы вывести её:
writeln(b);
Orimir_zn
Начинающий
0
Спасибо большое
_zn
БОГ
