дано натуральное четырехзначное число, верно ли, что число начинается и заканчивается одной цифрой?
5-9 класс
|
var a: integer;
begin
writeln('Введите четырехзначное число');
readln(a);
if a div 1000=(((a mod 1000) mod 100) mod 10) then writeln('Верно') else writeln('Не верно');
end.
Другие вопросы из категории
Читайте также
2)Дано натуральное трехзначное число N
верно ли,что первая цыфраа данного числа чётная?
3)найти все трёхзначные числа,которые состоят из разных цыфр,а их сумма равна А(А вводится с клавиатуры)
4)найти все симметричные натуральные числа(палиндромаиз промежутка от А до В(А и В вводится с клавиатуры)
Верно ли, что его первая цифра меньше последней? Решить также. Помогите пожалуйста!
цифру?"...Это можно сделать в виде блок-схемы или в ПАСКАЛЕ...)
2.Условный оператор(ветвление)
Нарисуйте блок-схему.Дано два числа.Верно ли, что он равны?
3.Циклы
Напишите программу на Паскале. Выведите на экран табицу умножения на 4 в виде 1+4=4,2+4=8,....9*4=36.
4.Одномерные массивы
Напишите программу на Паскале.Подсчитайте количество максимальных элементов массива А [1..12].
5.Двумерные массивы
Напишите программу на Паскале. создать массив случайны чисел В[1..6,1..6].Все элементы массива, расположенные выше главной диагонали сделать равными О.Вывести исходный и исправленный массивы.