Информатика | 5 - 9 классы
В ПАСКАЛЕ!
111)1)Определить какое из двухзначных чисел имеет наибольшую сумму цифр 2)Пользователь ввёл двузнч числа.
Поменяйте цифры данного числа местами 3)Проверить есть ли в трёхзначном числе два одинаковых цифры.
Дано 4 значное число, поменять местами первую и последнюю цифру?
Дано 4 значное число, поменять местами первую и последнюю цифру.
Программирование, составить в Паскале.
Дано натуральное число?
Дано натуральное число.
Определить каких цифр в данном числе больше четных или нечетных.
Через Паскаль.
Дано трёхзначное число?
Дано трёхзначное число.
Определить : является ли сумма его цифр двузначным числом.
Дано трёхзначное число?
Дано трёхзначное число.
Найти среди цифр этого числа, максимальное.
Программа в Паскале.
Дано трёхзначное число?
Дано трёхзначное число.
Верно ли что оно состоит из одинаковых цифр.
Решите через паскаль.
Дано трёхзначное число, проверить делится ли произведение его цифр на 5?
Дано трёхзначное число, проверить делится ли произведение его цифр на 5?
Составить программу на Паскале?
Составить программу на Паскале.
Дано двухзначное число N.
Проверить, меньше ли сумма цифр числа N заданного числа К.
Вывести об этом сообщение и значения числа N и К.
Дано двухзначное число, поменять местами цифры блок схема и паскаль?
Дано двухзначное число, поменять местами цифры блок схема и паскаль.
ПОМОГИТЕ.
Решить в паскале : дано двузначное число, определить : а) кратно ли 3 сумма его цифр ; б) кратно ли сумма его цифр числу a?
Решить в паскале : дано двузначное число, определить : а) кратно ли 3 сумма его цифр ; б) кратно ли сумма его цифр числу a.
Если трёхзначное число равно сумме кубов цифр, образующихэто число, то такое число называется «магическим»?
Если трёхзначное число равно сумме кубов цифр, образующих
это число, то такое число называется «магическим».
Найти и вывести все
«магические числа».
(Написать функцию вычисления суммы кубов цифр
трёхзначного числа).
Паскаль, через функции пользователя.
На этой странице находится вопрос В ПАСКАЛЕ?, относящийся к категории Информатика. По уровню сложности данный вопрос соответствует знаниям учащихся 5 - 9 классов. Здесь вы найдете правильный ответ, сможете обсудить и сверить свой вариант ответа с мнениями пользователями сайта. С помощью автоматического поиска на этой же странице можно найти похожие вопросы и ответы на них в категории Информатика. Если ответы вызывают сомнение, сформулируйте вопрос иначе. Для этого нажмите кнопку вверху.
1)
var a, b : integer ;
begin readln(a, b) ; if (a div 10 + a mod 10) > ; (b div 10 + b mod 10) then writeln('сумма цифр ', a, ' больше') else writeln('сумма цифр ', b, ' больше') ;
end.
2)
var a : integer ;
begin readln(a) ; writeln((a mod 10) * 10 + a div 10) ;
end.
3)
var a : integer ;
begin readln(a) ; if ((a div 100) = (a mod 100) div 10) or ((a div 100) = (a mod 10)) or ((a mod 100) div 10 = (a mod 10)) then writeln('есть 2 одинаковые цифры') else writeln('нет 2 - х одинаковых цифр') ;
end.