сервис вопросов и ответов!ПАСКАЛЬ! Ввести число и если оно четырехзначное,то найти его цифры, иначе вычесть из числа 100.
5-9 класс|
|
Dreams17
01 февр. 2014 г., 2:29:27 (10 лет назад)
VladaDementeva
01 февр. 2014 г., 4:53:20 (10 лет назад)
var a,b,c:integer;
begin
writeln ('введи число');
readln (a);
if (a>999) and (a<10000) then
begin
while a>0 do
begin
c:=a mod 10;
b:=b*10+c;
a:=a div 10;
end;
while b>0 do
begin
a:=b mod 10;
writeln (a);
b:=b div 10;
end;
end
else
begin
a:=a-100;
writeln (a);
end;
readln;
end.
Ответить
Другие вопросы из категории
Читайте также
ИНФОРМАТИКА,РЕШИТЬ ЗАДАЧИ ,помогите решить,пожалуйста,хоть несколько!
1.Даны 3 целых числа-А,В,С. Вычислить их сумму и произведение
2.Вывести на экран случайное число от 0 до 10
3.Вывести на экран двузначное случайное число
4. Найти сумму цифр двузначного числа
1. Определить принадлежит ли введенное с клавиатуры число интервалу (0,5)
2.Ввести число с клавиатуры. Если оно положительно,то найти квадрат этого числа,если отрицательно-модуль.
3.Найти большее из двух чисел ,заданных случайным образом из интервала [-7;23]
4.Ввести двузначное число с клавиатуры. Четна ли сумма его цифр?
5. Ввести трехзначное число. Расположить цифры в порядке возрастания
1)Введите число, если оно положительное,то увеличить его в 10 раз.
Помогите , чтобы программа пошла;3
2)Вводятся оценки за зачет и контрольную работу по физике,если сумма этих оценок больше или равна 8(на экране выводится молодец,или подтянис)(или работать больше надо)
Помогите)
Вы находитесь на странице вопроса "!ПАСКАЛЬ! Ввести число и если оно четырехзначное,то найти его цифры, иначе вычесть из числа 100.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.