Информатика | 5 - 9 классы
ДАЮ 25 БАЛЛОВ!
ВЫПОЛНЯТЬ В PascalABC.
NET! задача.
Дано x - трёхзначное число, необходимо найти 2 числа путём циклического сдвига и сумму исходного и полученных чисел.
ПОЖАЛУЙСТА!
. Даны три целых числа?
. Даны три целых числа.
Найти количество положительных чисел в исходном наборе.
PascalABC?
PascalABC.
NET. Помогите пожалуйста.
Даны 2 числа a и b.
Найти меньшее и определить делится ли оно нацело на 5.
Дано трёхзначное число?
Дано трёхзначное число.
Найти число, полученное при перестановке второй и третьей цифры заданного числа.
В Паскале abc.
Дано четырехзначное число?
Дано четырехзначное число.
Найти сумму и произведение второй и третьей цифр заданного числа.
Программа PascalABC.
Определить исходные данные, результат, составить блок - схему и программу для решения задачи?
Определить исходные данные, результат, составить блок - схему и программу для решения задачи.
Даны два числа : первое число Х, второе составляет 1 / 3 от первого числа.
Найти чему равен корень квадратный из суммы квадратов данных чисел.
Даны два целы числа a и b?
Даны два целы числа a и b.
Заменить большее из числе произведением а меньшее суммой.
PASCALABC.
Помогите сделать циклический алгоритмДана последовательность из М чисел?
Помогите сделать циклический алгоритм
Дана последовательность из М чисел.
Все отрицательные среди них числа возвести в квадрат и найти их сумму.
Нарисовать данную картинку в PascalABC?
Нарисовать данную картинку в PascalABC.
NET с помощью модуля graphABC.
Помогите пожалуйста (PascalABC?
Помогите пожалуйста (PascalABC.
NET).
ДАЮ 25 БАЛЛОВ?
ДАЮ 25 БАЛЛОВ!
ВЫПОЛНЯТЬ В PascalABC.
NET! Дано x - шестизначное натуральное число, найти сумму первых 3 цифр и сумму последних 3 цифр.
ПОЖАЛУЙСТА!
Если вам необходимо получить ответ на вопрос ДАЮ 25 БАЛЛОВ?, относящийся к уровню подготовки учащихся 5 - 9 классов, вы открыли нужную страницу. В категории Информатика вы также найдете ответы на похожие вопросы по интересующей теме, с помощью автоматического «умного» поиска. Если после ознакомления со всеми вариантами ответа у вас остались сомнения, или полученная информация не полностью освещает тематику, создайте свой вопрос с помощью кнопки, которая находится вверху страницы, или обсудите вопрос с посетителями этой страницы.
Var x, x1, x2 : integer ;
begin
readln(x) ;
x1 : = (x mod 100) * 10 + (x div 100) ;
x2 : = (x1 mod 100) * 10 + (x1 div 100) ;
writeln(x1, ' ', x2) ;
writeln(x + x1 + x2) ;
end.
Пример :
516
165 651
1332.