program reverse;
var
n, m: integer;
begin
write('Введите число N: ');
read(n);
while (n > 0) do
begin
m := m * 10 + n mod 10;
n := n div 10;
end;
write('Перевернутое число: ', m);
end.
Объяснение:
program reverse; // Название программы
var
n, m: integer; // Создание целочисленных переменных по условию
begin // Начало программы
write('Введите число N: '); // Вывод сообщения в консоль
read(n); // Считываем число с клавиатуры
while (n > 0) do // Пока значение переменной n > 0 выполняем
begin // Начало цикла
m := m * 10 + n mod 10; // Вписываем в нужный разряд (m * 10) последнюю цифру введенного числа (n mod 10 - остаток от деления на 10)
n := n div 10; // Отделяем последнюю цифру от введенного числа путем целочисленного деления на 10
end; // Конец цикла
write('Перевернутое число: ', m); // Вывод ответа
end. // Конец программы
program amountnumbers3;
var
quantity, amount, number, counter: integer;
begin
counter := 0;
amount := 0;
write('Введите количество чисел: ');
read(quantity);
while counter <> quantity do
begin
read(number);
if (number mod 3 = 0) then
inc(amount, number);
inc(counter);
end;
write('Сумма чисел, кратных 3 = ', amount);
end.
Объяснение:
program amountnumbers3; // Название программы
var
quantity, amount, number, counter: integer; // Создание целочисленных переменных:
quantity - количество чисел в последовательностиamount - сумма чисел, кратных 3number - числа - переменная счетчикbegin // Начало программы
counter := 0; // Переменная счетчик = 0
amount := 0; // Переменная, хранящая сумму = 0
write('Введите количество чисел: '); // Вывод сообщения в консоль
read(quantity); // Считывание количества чисел в последовательности с клавиатуры
while counter <> quantity do // Пока значение переменной counter ≠ значению переменной quantity, выполняй
begin // Начало цикла
read(number); // Считываем число последовательности с клавиатуры
if (number mod 3 = 0) then // Если остаток от деления при делении значения переменной number на 3 = 0, тогда
inc(amount, number); // Увеличиваем значение переменной amount на number
inc(counter); // Увеличиваем значение переменной counter на единицу
end; // Конец цикла
write('Сумма чисел, кратных 3 = ', amount); // Вывод ответа
end. // Конец программы
