Информатика | 5 - 9 классы
1) дано четырёхзначное число.
Вывести максимальную и минимальную цифру.
Pascal abc
2) дано четырёхзначное число.
Что больше : произведение цифр числа или их утроенная сумма.
Pascal ABC.
Дано целое число N?
Дано целое число N.
Составить программу нахождения количества цифр числа (Pascal ABC).
PASCAL ABC, программа?
PASCAL ABC, программа!
Вводится целое положительное число.
Найти наименьшую нечетную цифру в числе.
Если в числе нет нечетных цифр, то вывести надпись "В числе нет нечетных цифр".
"Найти сумму цифр четырёхзначного числа" задача pascal?
"Найти сумму цифр четырёхзначного числа" задача pascal.
Дано трехзначное и четырехзначное число?
Дано трехзначное и четырехзначное число.
В каком числе сумма цифр больше?
Напишите, пожалуйста, программу для Pascal.
ABC.
Pascal ABC?
Pascal ABC.
Дано натуральное число "n".
Составьте программу которая выводит максимальную цифру этого числа.
Найдите все трехзначные числа, сумма цифр которых равна данному целому числу?
Найдите все трехзначные числа, сумма цифр которых равна данному целому числу.
(pascal).
Дано четырёхзначное число n?
Дано четырёхзначное число n.
Проверить, будет ли сумма его цифр чётным числом.
Дано четырёхзначное число определить является ли нечётным произведение его цифр?
Дано четырёхзначное число определить является ли нечётным произведение его цифр.
Дано натуральное число N ?
Дано натуральное число N .
Определить наименьшую и наибольшую цифры данного числа (Pascal ABC).
Pascal abcдано целое число ?
Pascal abc
дано целое число .
Верно ли, что в числе нет 5?
На этой странице сайта, в категории Информатика размещен ответ на вопрос 1) дано четырёхзначное число?. По уровню сложности вопрос рассчитан на учащихся 5 - 9 классов. Чтобы получить дополнительную информацию по интересующей теме, воспользуйтесь автоматическим поиском в этой же категории, чтобы ознакомиться с ответами на похожие вопросы. В верхней части страницы расположена кнопка, с помощью которой можно сформулировать новый вопрос, который наиболее полно отвечает критериям поиска. Удобный интерфейс позволяет обсудить интересующую тему с посетителями в комментариях.
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.