Файл: Задача Вывести на экран три введенных с клавиатуры числа в порядке, обратном их вводу. Задача 2.docx
Добавлен: 28.03.2024
Просмотров: 13
Скачиваний: 0
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Уровень А
Задача 1. Вывести на экран три введенных с клавиатуры числа в порядке, обратном их вводу.
Задача 2. Дано расстояние в километрах. Найти число полных метров, сантиметров, миллиметров в нем.
Уровень B
Задача 3.Дано натуральное число меньше 256. Сформировать число, представляющее собой его квадрат.
Задача 4. Найдите результат:
Уровень С
Задача 5.Сформировать число, представляющее собой реверсную (обратную в порядке следования разрядов) запись заданного трехзначного числа. Например, для числа 341 таким будет 143.
program ReverseNum;
var
n, a, b, c: word;
begin
readln(n);
a := n mod 10;
n := n div 10;
b := n mod 10;
n := n div 10;
c := n;
n := 100 * a + 10 * b + c;
writeln(n)
end.
посчитать количество чисел, которые кратны 9 и оканчиваются на 5 в диапазоне от 1 до 500
var i, n:integer;
begin
for i:=1 to 500 do
if (i mod 9 = 0) and (i mod 10 = 5) then n:=n+1;
writeln('Количество чисел = ', n);
end.
Задача: если введенное с клавиатуры число оканчивается на 5 и делится на 7, то вывести «YES» иначе «NO»
var a:integer;
begin
readln(a);
if (a mod 7 = 0) and (a mod 10 = 5) then writeln('YES')
else writeln('NO');
end.
Задача: определить, является ли число, введенное с клавиатуры, четным.
Чтобы ответить на этот вопрос нужно поделить число a с помощью mod на 2 (a mod 2) и сравнить это значение с нулем. Условие будет выглядеть так: a mod 2 = 0
var a:integer;
begin
readln(a); // вводим число
if a mod 2 = 0 then writeln('введенное число - четное'); // если условие выполняется - выводим на экран сообщение
end.
Read more: http://krivaksin.ru/ispolzovanie-operatorov-mod-i-div-pri-reshenii-zadach-v-paskal/#ixzz7Bh80H1Jq