Дано число n нужно отрубить последние его цифры. Язык паскаль, программа начинается так: Var Begin и тд.. Помогите пожалуйста срочно!!!
5-9 класс
|
Kii12
26 апр. 2013 г., 16:51:27 (11 лет назад)
Timonin123
26 апр. 2013 г., 17:23:43 (11 лет назад)
var n: real
begin
readln(n);
n:=n div 1000;
writeln(n)
end.
Mariyabudaeva
26 апр. 2013 г., 18:10:35 (11 лет назад)
uses crt;
var n,a,b: integer;
begin
readln(a);
while(a>0) do
begin
b:=a mod 10;
a:=a div 10;
end;
write(b,' ');
readln;
end.
Ответить
Другие вопросы из категории
Читайте также
НУЖНО НАПИСАТЬ ПРОГРАММЫ НА ПАСКАЛЕ "циклы с условием" 1)Среди чисел 1, 4. 9. 16, 25,... найти первое число, большее n. 2)Дано число
n.
а) Напечатать те натуральные числа, квадрат которых не превышает n.
3) Дано натуральное число. Определить:
а) количество цифр 3 в нем;
г) сумму его цифр, больших пяти;
Введите целое число и найти сумму его цифр.
Пример:
Введите целое число:
1 2 3 4
Сумма цифр числа 1 2 3 4 равна 10
1.Если данное натурального число меньше 10, то прибавьте 10, иначе вычьте. Решить через Паскаль var, begin-end. 2. Дано трехзначное число.
Верно ли, что его первая цифра меньше последней? Решить также. Помогите пожалуйста!
Вы находитесь на странице вопроса "Дано число n нужно отрубить последние его цифры. Язык паскаль, программа начинается так: Var Begin и тд.. Помогите пожалуйста срочно!!!", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.