составить программу в Паскале! пожалуйста!!! СРОЧНО!!! Дано двузначное число. Определить: а) какая из его цифр больше, первая или вторая; б) одинаковы
5-9 класс
|
ли его цифры.
var
c:integer;
begin
write('Введите число '); readln(c);
c := abs(c);
if c div 10 > c mod 10 then
writeln('Первая цифра больше второй')
else
if c div 10 < c mod 10 then
writeln('Вторая цифра больше первой')
else
writeln('Цифры равны');
end.
Другие вопросы из категории
2)Сколько символов текста можно передать за 5 секунд, используя модем, работающий со скоростью 28800 бит/сек?
Сумму кубов всех целых чисел от 1 до n ( Значение n вводится с клавиатуры;B>a)
фальшивая - 4 грамма. Есть весы, показывающие вес в граммах.
Необходимо за одно взвешивание определить, в каком мешке фальшивые монеты.
Подсказка:
Мешки можно раскрывать и вытаскивать монеты
Читайте также
Клоун
предложил каждому из публики задумать число. Потом он сказал: «Прибавьте к
задуманному числу 5. Теперь из результата вычтите 2. А теперь к результату
прибавьте 7». Потом клоун спросил у желающих, какое число у каждого из них
получилось. Услышав ответ, он немедленно объявлял каждому, какое число тот
задумывал. Составьте программу, которая повторяла бы фокус клоуна.
Агент 007 узнал, что в секретном сейфе трёхзначный код, в котором все три цифры разные.При этом средняя цифра равна разности крайних цифр. Составить программу, которая напечатает для него все такие числа.
числа В. и наоборот?
составить программы на паскале
1. Запишите на языке Паскаль программу, которая для произвольного двузначного числа определяет
сумму и произведение его цифр.