Напишите программу которая вводит четырехзначное число и определяет верно ли что его десятичной записи цифры стоят в порядке воз
пишем имя программы
Program:chetre;
n,i: integer;
теперь пишем начало
Begin
введём переменную n
Write(‘n = ‘);Read(n);
теперь присваиваем значение переменной i
дальше вы наверное всё поймёте
if n div 1000 = n mod 10 then i:=i+1;
if (n mod 10 = (n div 10) mod 10) then i:=i+1;
n:=n div 10;
if (n mod 10 = (n div 10) mod 10) then i:=i+1;
n:=n div 10;
if (n mod 10 = (n div 10) mod 10) then i:=i+1;
n:=n div 10;
if i=1 then Write(‘Верно’)
else Write(‘Не верно’)
вот полная программа без всяких вставок
Рrogram:chetre;
n,i:integer;
Begin
Write(‘n = ‘);Read(n);
if n div 1000 = n mod 10 then i:=i+1;
if (n mod 10 = (n div 10) mod 10) then i:=i+1;
n:=n div 10;
if (n mod 10 = (n div 10) mod 10) then i:=i+1;
n:=n div 10;
if (n mod 10 = (n div 10) mod 10) then i:=i+1;
n:=n div 10;
if i=1 then Write(‘Верно’)
else Write(‘Не верно’)
Var
p, r: real;
f: Text;
Язык Паскаль был создан Никлаусом Виртом в 1968—1969 годах после его участия в работе комитета разработки стандарта языка Алгол-68. Язык назван в честь французского математика, физика, литератора и философа Блеза Паскаля, который создал первую в мире механическую машину, складывающую два числа.
Блез Паскаль появился на свет 19 июня 1623 года в городке Клермон-Ферран на юге Франции.
в 1640 году свет увидел «Опыт теории конических сечений», ставший основополагающим трактатом для дальнейших трудов в области геометрии.
в 1642 году Блез занимался разработкой чудо-аппарата. Его арифмометр, сделанный по принципу античного таксометра, выглядел как ящик с многочисленными шестеренками и позволял производить расчеты с шестизначными числами, а подсчет производился в полуавтоматическом режиме.
В конце 1646 года Блез Паскаль, узнав о трубке, изобретенной Торричелли, стал увлекаться физикой. Ученый начал ставить эксперименты, доказывая, что гипотеза Аристотеля о «боязни пустоты» имеет пределы.
Блез видоизменил этот эксперимент и сделал заключение, что верхняя часть трубки не наполнена парами химического вещества, тонкой материей или иной субстанцией. Результаты своей работы Паскаль опубликовал в трактате «Новые опыты, касающиеся пустоты», а далее стремился прийти к выводу, что столбик с ядовитым металлом удерживается давлением воздуха.
Кроме того, Блез Паскаль выпустил в свет рукопись «Трактат о равновесии жидкостей» (1653), сформировал идею гидравлического пресса и установил основной закон гидростатики, опровергнув учение древнегреческого философа.
в 1652 году удостоился признания и славы, презентовав свою суммирующую машинку шведской королеве Кристине.
Я думаю, что это сетевой червь.
Объяснение:
вроде вот это,ну если нет то прости
Насколько я понял, это в системе Кумир.
У меня в общем то получилась универсальная программа прохождения такого типа лабиринтов- в одну клетку, из конца в конец, без «дырок» в угловых и крайних клетках.
Для данного лабиринта при желании её можно упростить- убрать движение вправо (в этом лабиринте оно не используется) а также начальный выбор направления (оставив просто «цел н=3»).
при сверху свободно: н:=1
при справа свободно: н:=2
при снизу свободно: н:=3
при слева свободно: н:=4
при справа свободно: вправо; н:=2
при слева свободно: влево; н:=4
при справа свободно или слева свободно: закрасить; вверх
при н=2: |идём вправо
при сверху свободно: вверх; н:=1
при снизу свободно: вниз; н:=3
при сверху свободно или снизу свободно: закрасить; вправо
при справа свободно: вправо; н:=2
при слева свободно: влево; н:=4
при справа свободно или слева свободно: закрасить; вниз
при сверху свободно: вверх; н:=1
при снизу свободно: вниз; н:=3
при сверху свободно или снизу свободно: закрасить; влево
Четырехзначный палиндром
Требуется написать программу, определяющую, является ли четырехзначное натуральное число N палиндромом, т.е. числом, которое одинаково читается слева направо и справа налево.
Входные данные
Входной файл INPUT.TXT содержит натуральное число N (1000 ≤ N ≤ 9999).
Выходные данные
В выходной файл OUTPUT.TXT следует вывести слово «YES», если число N является палиндромом, или «NO» – если нет.
Примеры
| INPUT.TXT | OUTPUT.TXT |
| 6116 | YES |
| 1231 | NO |
Четырехзначный минимум
Вводится 4-х значное число. Нужно разделить его на отдельные цифры и с их помощью записать.
Палиндром
Дано слово, состоящее только из заглавных и строчных латинских букв. Проверьте, верно ли, что это.
Палиндром
Назовем натуральное число палиндромом, если в его десятичной записи все цифры расположены.
Палиндром
Прошу помочь в решении задачи! Дано слово (все буквы строчные). Выведите: слово YES, если.
Палиндром
Всем доброго времени суток! Пытаюсь написать программу, которая бы распечатывала введённые слова.
Следующий палиндром
Натуральное число называется палиндромом, если его запись в десятичной системе счисления читается.
Следующий палиндром
Натуральное число называется палиндромом, если его запись в десятичной системе счисления читается.
Негласный палиндром
Негласный палиндром Возьмем произвольное слово и проделаем с ним следующую операцию: поменяем.
Составить палиндром
Напишите программу, которая определяет, можно ли переставить английские буквы введённого.
Число-палиндром
Напишите программу, которая составляет из цифр введённой строки число-палиндром максимальной длины.