Дано натуральное число, определите последнюю цифру этого числа!
5-9 класс
|
Напишите пожалуйста программу для паскаля
ПРОШУ ВАС!)
program chik;
var n,a:integer;
begin
read(n);
a:=n mod 10;
writeln(a);
end.
здесь mod 10 делаем чтобы найти остаток от деления n на 10
при этом мы находим последнюю цифру
а если mod 100 сделать 2 последные цифры
mod 1000 три последные цифры
и т.д
Другие вопросы из категории
Паскаль. Введите любое число и выведите на экран наибольшую цифру в числе.
Например ввожу 5683, а он мне должен вывести: 8.
Начало программы я допер:
program z1;
var n:integer;
begin
K:=0;
writeln('Введите любое число');
readln(n);
while n<>o do begin
n:=n div 10;
k:=k+1;
end;
... Тем самым мы нашли количество цифр в числе, а вот что делать дальше я не знаю(
Program prim2;
Var x, y: real;
Begin
For x:=-10 to 10 do
Begin
y:-sqr (x);
Writeln ( x,' ', y)
end;
End.
отменить галочкой!
либо двух мальчиков, а солдата и мальчика уже не вмещает?
Читайте также
или во втором сумма цифр этого числа будет равна 9.)
изведение всех цифр этого числа а так же колличество больших шестии
цифр;б) число,образованное перестановкой цифр исходного числа. Срочно надо
число,образованное перестановкой цифр исходного числа.