Информатика | 5 - 9 классы
Задача на языке Паскаля
Дано натуральное число N.
Напишите функцию int MinDigit (int n) (C / C + + ), function MinDigit (n : longint) : integer (Pascal) и int MaxDigit (int n) (C / C + + ), function MaxDigit (n : longint) : integer (Pascal), определяющую наименьшую и наибольшую цифры данного числа.
Формат входных данных
Задано единственное число
Формат выходных данных
Необходимо вывести наименьшую и наибольшую цифры данного числа через пробел.
Напишите функцию int reverse(int n) (C / C + + ), function reverse (n : integer) : integer (Pascal), которая переставляет цифры числа в обратном порядке ?
Напишите функцию int reverse(int n) (C / C + + ), function reverse (n : integer) : integer (Pascal), которая переставляет цифры числа в обратном порядке .
Формат входных данныхЗадано единственное числоФормат выходных данныхНеобходимо вывести цифры данного числа в обратном порядке.
Дано два натуральных числа N и M?
Дано два натуральных числа N и M.
Написать программу для определения наименьшего из чисел, составленных из цифр данных чисел.
Незначащих нулей в найденном числе быть не должно.
Формат входных данных : Входной файл INPUT.
TXT содержит два натуральных числа N (10N10100) и M (10M10100), разделенных одним пробелом.
Формат выходных данных : Выходной файл OUTPUT.
TXT должен содержать найденное наименьшее число.
Задается целое число N?
Задается целое число N.
Нужно вывести количество четных делителей числа N.
Формат входных данных Единственная строка входного файла содержит единственное целое число N(1< ; = N< ; = 1000) Формат выходных данных выведите ответ к задаче.
Выведите все точные квадраты натуральных чисел, не превосходящие данного числа N?
Выведите все точные квадраты натуральных чисел, не превосходящие данного числа N.
Формат входных данных Задано единственное число N.
Формат выходных данных Необходимо вывести все точные квадраты натуральных чисел, не превосходящие данного числа N.
Дано натуральное число N ?
Дано натуральное число N .
Определить наименьшую и наибольшую цифры данного числа (Pascal ABC).
Дано натуральное трёхзначное число n?
Дано натуральное трёхзначное число n.
Найдите сумму и произведение цифр в нём.
Формат входных данных
Вводится целое число n (100≤n≤999)
Формат выходных данных
Требуется вывести сумму и произведение его цифр через пробел.
Напишите рекурсивную функцию вычисления суммы цифр натурального числа?
Напишите рекурсивную функцию вычисления суммы цифр натурального числа.
Формат входных данных На вход ваша программа получает одно натуральное число n (n< ; 216)(n< ; 216).
Формат выходных данных Выведите одно число — сумму цифр числа n.
Умоляю , Пожалуйста ?
Умоляю , Пожалуйста !
Напишите функцию int min (int a, int b, int c, int d) (C / C + + ), static int min (int a, int b, int c, int d) (Java) function min (a, b, c, d : integer) : integer (Pascal), находящую наименьшее из четырех данных чисел.
Входные данные Вводится четыре числа.
Выходные данные Необходимо вывести наименьшее из 4 - х данных чисел.
Задача?
Задача.
Дано натуральное число N (1< ; = N< ; = 100000).
Требуется написать программу, определяющую для N, какая цифра больше – первая или последняя.
Формат входных данных : В единственной строке задано число N.
Формат выходных данных : В единственной строке необходимо вывести один символ : = , если цифры одинаковые, < ; , если первая цифра меньше последней, > ; , если первая цифра больше последней.
Дано натуральное число N?
Дано натуральное число N.
Напишите функцию (Pascal), вычисляющую сумму цифр числа N.
Входные данные
Задано единственное число N
Выходные данные
Необходимо вывести сумму цифр числа N.
Примеры
входные данные
12
выходные данные
3
ПРОГРАММА БЫЛА, НО ВВОДИЛ 12 И ВЫВОДИЛ ВМЕСТО 3, 0.
На этой странице сайта, в категории Информатика размещен ответ на вопрос Задача на языке ПаскаляДано натуральное число N?. По уровню сложности вопрос рассчитан на учащихся 5 - 9 классов. Чтобы получить дополнительную информацию по интересующей теме, воспользуйтесь автоматическим поиском в этой же категории, чтобы ознакомиться с ответами на похожие вопросы. В верхней части страницы расположена кнопка, с помощью которой можно сформулировать новый вопрос, который наиболее полно отвечает критериям поиска. Удобный интерфейс позволяет обсудить интересующую тему с посетителями в комментариях.
Сделать эту задачу можно двумя способами.
Первый - чисто арифметический.
Второй - более хитрый, через операции над строками.
Мы пойдем вторым путем, он короче и практичней, такой код будет требовать меньше ресурсов машины для реализации (что незаметно в таких маленьких задачках, но довольно критично в реальной жизни, поэтому учимся писать дальновидные коды).
Var n : longint ;
Function MinDigit(n : longint) : integer ;
var s, a : string ; c, i : integer ;
begin
str(n, s) ;
a : = s[1] ;
for i : = 2 to length(s) do if s[i]< ; a then a : = s[i] ;
val(a, n, c) ;
MinDigit : = n ;
end ;
Function MaxDigit(n : longint) : integer ;
var s, a : string ; c, i : integer ;
begin
str(n, s) ;
a : = s[1] ;
for i : = 2 to length(s) do if s[i]> ; a then a : = s[i] ;
val(a, n, c) ;
MaxDigit : = n ;
end ;
Begin
readln(n) ;
writeln(MinDigit(n), ' ', MaxDigit(n)) ;
End.
По факту переменную "c" можно убрать из функций и использовать вместо нее уже не нужную в конце "i", таким образом избавившись от одной переменной.
Но это не принципиально на самом деле, к тому жетак понятней, какая переменная за что отвечает.