Информатика | 5 - 9 классы
Дано трехзначное и четырехзначное число.
В каком числе сумма цифр больше?
Напишите, пожалуйста, программу для Pascal.
ABC.
Дано четырехзначное число?
Дано четырехзначное число.
Найти : сумму его цифр.
Написать программу на Pascal'е.
Дано трехзначное число?
Дано трехзначное число.
Найти сумму цифр числа.
(Написать программу на языке Паскаль).
Дано целое число N?
Дано целое число N.
Составить программу нахождения количества цифр числа (Pascal ABC).
1) дано четырёхзначное число?
1) дано четырёхзначное число.
Вывести максимальную и минимальную цифру.
Pascal abc
2) дано четырёхзначное число.
Что больше : произведение цифр числа или их утроенная сумма.
Pascal ABC.
Напишите программу, которая вычисляет сумму цифр введенного двухзначного числа?
Напишите программу, которая вычисляет сумму цифр введенного двухзначного числа.
(Pascal).
Ввести с клавиатуры трехзначное число и корень квадратный из суммы цифр этого числаpascal?
Ввести с клавиатуры трехзначное число и корень квадратный из суммы цифр этого числа
pascal.
1. Дано трехзначное число?
1. Дано трехзначное число.
Написать программу (Pascal), которая «переставляет» первую цифру числа на самое последнее место.
Pascal ABC?
Pascal ABC.
Дано натуральное число "n".
Составьте программу которая выводит максимальную цифру этого числа.
Найдите все трехзначные числа, сумма цифр которых равна данному целому числу?
Найдите все трехзначные числа, сумма цифр которых равна данному целому числу.
(pascal).
Дано трехзначное число Напишите программу которая определяет есть ли среди цифр заданного целого трехзначного числа одинаковые?
Дано трехзначное число Напишите программу которая определяет есть ли среди цифр заданного целого трехзначного числа одинаковые.
Вопрос Дано трехзначное и четырехзначное число?, расположенный на этой странице сайта, относится к категории Информатика и соответствует программе для 5 - 9 классов. Если ответ не удовлетворяет в полной мере, найдите с помощью автоматического поиска похожие вопросы, из этой же категории, или сформулируйте вопрос по-своему. Для этого ключевые фразы введите в строку поиска, нажав на кнопку, расположенную вверху страницы. Воспользуйтесь также подсказками посетителей, оставившими комментарии под вопросом.
Var x, y, sum1, sum2 : integer ;
begin
readln(x) ;
readln(y) ;
while x< ; > ; 0 dobegin sum1 : = sum1 + x mod 10 ; x : = x div 10 ;
end ;
while y< ; > ; 0 dobegin sum2 : = sum2 + y mod 10 ; y : = y div 10 ;
end ;
if sum1> ; sum2 then Writeln('v pervom : ', sum1, ' (vo vtorom ', sum2, ')') else writeln('vo vtorom : ', sum2, ' (v pervom ', sum1, ')') ;
end.