Если в строке нет символа *, то оставить эту строку без изменения - Pascal

Формулировка задачи:

Помогите решить задачи 1)Найти сумму 10 членов ряда, в котором an=(n!)/n2. 2)Дана строка. Если в строке нет символа *, то оставить эту строку без изменения, иначе каждую из малых букв , предшествующую первому вхождению символа *, заменить на цифру 3. 3)Дано 100 целых чисел от 1 до 50. Определить, сколько среди них чисел Фибонач-чи. 4)Написать подпрограмму, которая преобразует последовательность чисел последовательность квадратов этих чисел. Заранее спасибо.

Код к задаче: «Если в строке нет символа *, то оставить эту строку без изменения - Pascal»

textual
var
a,fib:array[1..100]of integer;
i,j,k,kol:integer;
begin
{заполняем массив числами}
writeln('Введите элементы массива');
for i:=1 to 100 do
read(a[i]);
{Ищем числа Фибоначчи и заносим их в массив}
fib[1]:=1;
fib[2]:=1;
k:=2;
repeat
k:=k+1;
fib[k]:=fib[k-1]+fib[k-2];
until fib[k]>=50;
{ищем количество чисел Фибоначчи в массиве}
for i:=1 to 100 do
  for j:=1 to k do
if a[i]=fib[j] then kol:=kol+1;
writeln(kol);
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

8   голосов, оценка 3.875 из 5


СОХРАНИТЬ ССЫЛКУ