{ввожу текст, затем слово. Переменная flag нужна для того, чтобы в нее записать 1, если из слова встретиться в тексте хотя бы раз буква. Если это случилось, то Flag становится равной 1. К буквам слова и текста обращаемся как к массиву a[i] b[j]} var a,b:string; i,n,k,j,flag:integer; begin flag:=0; writeln('Введите текст'); readln(a); Writeln('Введите слово'); Readln(b); k:=length(a); n:=length(b); for i:=1 to n do for j:=1 to k do if a[i]=b[j]then flag:=1; if flag=1 then writeln('Y') else writeln('N'); end.
Дан массив состоящий из N целых чисел. Заменить каждый элемент массива с нечетным номером средним арифметическим индексов соседних элементов
Дан массив из 6 целых чисел. Посчитать количество элементов, которые принадлежат отрезку [2;5]
Деньги в количестве 10000 руб положены на текущий счет в сберегательный банк. Прибыль составляет ежегодно 15%. Через сколько лет сумма станет равной 15000 руб, если прибыль останется на текущем счете?
И если получится то и
Вывести таблицу значений функции y=0.5x2-3x+5 на отрезке [a,b] с шагом h. Значения a, b, h вводятся с клавиатуры
ВСЕ В ПАСКАЛЕ.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
