не могу составить блок схему помогите пожалуйста ((
10-11 класс
|
program pasha;
uses crt;
var a:integer;
begin
clrscr;
repeat
write('Введите 4х-значное число a=');
readln(a);
until(a>555)and(a<=5555);
writeln('Данное число читается одинаково справа налево и слева направо');
write((a div 1000=a mod 10)and(a div 100 mod 10=a div 10 mod 10));
readln
end.
если не ошибся, то так.
Другие вопросы из категории
языков программирования алгоритм, который находит минимальное значение из всех нечетных элементов массива, которые делятся на 5.
Эксель, чтобы построить график полета?
Читайте также
Я не могу сочинить этот "алгоритм", помогите ;)
Блок-схемы строить не надо, просто описать, что надо делать.
Составить блок-схему алгоритма решения задачи и программу на языке паскаль одним способом:
Σ сверху сигмы 40,снизу сигмы x=1 (x^2+(5/(x^2+8)))
Составить блок-схему и написать
на VBA
функцию, вычисляющую
для одномерного массива
последних целым числом.Помогите пожалуйста решить эту задачу.
2)построить блок схему которая меняет порядок цифр числа на обратный. например было 12345,стало 54321.