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