сервис вопросов и ответов1) дано четырёхзначное число. вывести максимальную и минимальную цифру. pascal abc
5-9 класс|
|
2) дано четырёхзначное число. Что больше: произведение цифр числа или их утроенная сумма. pascal ABC
МарияМарухян
03 окт. 2013 г., 15:28:35 (10 лет назад)
4325Илья1214
03 окт. 2013 г., 17:06:40 (10 лет назад)
program task1;
var number, max, min, ost, digit :integer;
begin
readln(number); max:= 0; min:= 9; while number > 0 do begin digit:= number mod 10; if digit < min then min:= digit; if digit > max then max:= digit; number:= number div 10; end; writeln('Минимальная цифра: ',min); writeln('Максимальная цифра: ',max);
end.
program task2;
var number, digit, sum, p :integer;
begin
readln(number); sum:= 0; p:= 1; while number > 0 do begin digit:= number mod 10; sum:= sum + digit; p:= p * digit; number:= number div 10; end; sum:= sum * 3; if sum > p then writeln('Утроенная сумма больше произведения'); if p > sum then writeln('Произведение больше утроенного произведения');
end.
Ответить
Другие вопросы из категории
Проверочная блин, внезапно!!! Помогите пожалуйста. 25 человек надеются на вас))
Очень срочно
Ведите число, если оно положительно умножено *2, иначе -3
Эти два понятия, используемые в информатике, имеют одну и ту же вторуючасть, а первая в одном из этих понятий происходит от латинского слова,
соответствующего слову объединять, а во втором — от слова, соответствующего слову разобщать. Что это за понятия?
Читайте также
1.Дано трехзначное число. а)Определите, входят ли в него цифры 4 и 7. б)Определите, входят ли в него одновременно цифры 4 и 7. 2. Даны
четыре целых числа. Вывести на экран минимальное из них.
3.Даны три вещественных числа a, b и с - коэффициенты уравнения ax^2+bx+c. Найдите решение этого уравнения или сообщите, что решения не существует.
Вариант № 2 1)Подсчитать сумму квадратов всех отрицательных и четных чисел из 10 вводимых. 2) Даны натуральные числа от 35 до 87.
Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.
3)Дано целое число а и натуральное (целое неотрицательное) число n. Вычислить а в степени n, используя в программе лишь операцию умножения.
4)Введите последовательность из n целых чисел. Найти наибольшее из всех отрицательных чисел. Вывести его значение и порядковый номер.
5)Вычислите: 99-97+95-93+91-89+....+7-5+3-1.
6)Доказать (путем перебора возможных значений), что для любых величин А, В, С типа Boolean следующая пара логических выражений имеет одинаковые значения (эквивалентны): A OR (B AND C) и (A OR B) AND (A OR C).
Ребята кто разбирается в Pascal ABC помогите пожалуйста Задачи на циклы с параметром 1.Дано вещественное число A и целое число N (> 0).
Вывести A в степени N: An = A•A•...•A (числа A перемножаются N раз). 2.Дано вещественное число A и целое число N (> 0). Вывести все целые степени числа A от 1 до N. 3.Дано вещественное число A и целое число N (> 0). Вывести 1 + A + A2 + A3 + ... + An. ,
Вы находитесь на странице вопроса "1) дано четырёхзначное число. вывести максимальную и минимальную цифру. pascal abc", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.