Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют заданному свойству - Pascal ABC

  1. Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству:слово симметрично


textual

Код к задаче: «Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют заданному свойству - Pascal ABC»

if length(A[i])>8 then begin
B[i]:=false;
goto otbor;
end;

СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.364 из 5



Похожие ответы
  1. Напишите программу, которая находит все различные цифры в символьной строке.Входные данные На вход программе подаётся символьная строка.Выходные данные Программа должна вывести в одной строке все различные цифры, которые встречаются в исходной строке, в порядке возрастания. Если в строке нет цифр, нужно вывести слово 'NO'.Примеры:входные данные ab1n32kz2выходные данные 123входные данные asdasdвыходные данные NO

  1. Определите функцию, которая вычисляет и возвращает длину гипотенузы прямоугольного треугольника, две другие стороны x и y которого известны.Добавлено через 3 часа 0 минут Заранее спасибо за помощь)

  1. Напишите условие, которое определяет заштрихованную область.

  1. Здравствуйте! Помогите решить, заранее спасибо) В возрастающем порядке напечатать целые числа из диапазона 1.. 10000, представимые в виде n2 + m2, где n, m>=0

  1. Напишите программу, которая выводит на экран круговую диаграмму , отражающую товарооборот (в процентах) книжного магазина. Исходные данные 30% 35% 30% 5%.

  1. Найти сумму целых положительных чисел из промежутка от А до B, кратных 4.(значения А и В вводятся с клавиатуры)

  1. Дано натуральное число, определите сколько раз в нём встретится последняя цифра. решение нужно через цикл goto

  1. Здравствуйте, помогите разобраться! Дано задача. Кубики. Кубик с ребром N см покрасили и разрезали на кубики с ребром 1 см. При этом появились такие, у которых окрашено разное количество граней. Например, если N = 3, то после разрезания будет 8 кубиков, у которых окрашено три грани, 12 с двумя гранями, 6 с одной, а один кубик будет совсем неокрашенный. Составьте программу, которая бы определяла, сколько кубиков с каждой возможным количеством окрашенных граней. Как можно создать Ввод и Вывод файл не как не могу! Задачу из интернета скачал. Delphi1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 program cubes; uses crt; var x,x1,x2,x3,x0,y,z,k,n:integer; s:string; f,g:text; begin assign(f,'cubes.dat'); reset(f); readln(f,y); close(f) ; x3:=8; x1:=sqr(y-2)*6; x0:=(sqr(y-2))*(y-2); x2:=(y-2)*4*2+(y-2)*4; assign(g,'cubes.sol'); rewrite(g); writeln(g,'0/',x0,' 1/',x1,' 2/',x2,' 3/',x3); close(g); end.

  1. Всех приветствую! Мне необходимо было найти реализацию шифра Виженера на языке Pascal, я её нашёл. Именно с применением одномерных массивов и так далее, то есть прикреплённый код (ниже) полностью устраивает. Результат работы следующий: Введите ключ: "lemon". Введите исходное слово: "secret". Зашифрованное слово (результат): "[d,i,o,f,r,e,". Так вот, всё высчитывает верно, но мне необходимо, чтобы результат выводился без квадратной скобки и запятых: "diofre". Можете исправить код в нужном месте, если нет времени, то, хотя бы намекните, где, что исправить. Заранее спасибо. Буду благодарен тому, кто поможет!