Кодинг. Задача Вывести на экран три введенных с клавиатуры числа в порядке, обратном их вводу. Задача 2
 Скачать 0.7 Mb.
|
|
Уровень А Задача 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    |