Написать поограмму в pascal abc. Дано 5 значное число выделить 2,3,4 цифру и выяснить является нечетным. зарание спасибо.
5-9 класс
|
var a:integer;
b:boolean;
begin
readln(a);
writeln(a div 10 mod 1000);
if a mod 2 <> 0 then b:=true;
writeln(b);
end.
Другие вопросы из категории
Создать массив a из десяти целых чисел, принадлежащих промежутку [0;25). Вывести полученный массив на экран. Подсчитать k - количество элементов массива, значение которых превышает 12.
Помогите пожалуйста!! Очень нужно!!
варианты ответов: а)1,б)4,в)27,г)60,д)81,е)243
плиззззззззззззз
Читайте также
2) дано четырёхзначное число. Что больше: произведение цифр числа или их утроенная сумма. pascal ABC
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
Составьте программу:
Дано 5-ти значное число (78906)
с помощью div и mod
нужно выделить цифры из числа.
ввести 3 значное число и находит сумму его цифр.
2. Написать программу, которая предлагает ввести 3 значное число и меняет порядок цифр наоборот. (123- 321)
3.Написать программу, которая предлагает ввести три числа с клавиатуры, находит их сумму, произведение и среднее арифметическое.