Паскаль 1) составить программу, которая определяет произведение цифр четырехзначного числа, введенного пользователем. 2) составить программу, которая по формулам для арифметической прогрессии находит сумму n первых элементов прогрессии и значения трех элементов с номерами (n–1), n и (n+1 число n, первый элемент и разность прогрессии вводятся пользователем. вывести значения элементов в форме таблицы, где первая строка – номер, а вторая – значение.

1)

var a: 1000..9999;

      a1, a2, a3, a4: 1..9; //цифры числа

begin

  writeln('введите четырехзначное число');

  readln(a);

  a4: = a mod 10; //последняя цифра

  a3: = (a mod 100) div 10;

  a2: = (a mod 1000) div 100;  

  a1: =a div 1000; //первая слева цифра

  writeln('произведение цифр числа: ',a1 * a2 * a3 * a4);

end.

2)

var

  n: integer;

  d, s: real;

  a1: real;

begin

  writeln('введите число n');

  readln(n);

  writeln('введите разность прогрессии');

  readln(d);

  writeln('введите первый элемент');

  readln(a1);

  s: =  ((2*a1+d*(n-1))/2)*n;

  writeln('номер: ', n-1, '     значение: ',  a1+d*(n-2));

  writeln('номер: ', n, '     значение: ',  a1+d*(n-1));

  writeln('номер: ', n+1, '     значение: ',  a1+d*n);

  writeln('сумма ', n, ' первых элементов равна: ',s);

end.

           

   

 

Var myinfile, myoutfile: text;     ind: integer;     currentstring: string; begin     assign(myinfile, 'in.txt');     reset(myinfile);     assign(myoutfile, 'out.txt');     rewrite(myoutfile);     while (not eof(myinfile)) do     begin       currentstring : = readln(myinfile);       while  (pos('red',  currentstring) > 0) do       begin           ind : =  pos(currentstring, 'red');           delete(currentstring, ind, length('red'));           insert('black', currentstring, ind);       end;       while  (pos('tree',  currentstring) > 0) do       begin           ind : =  pos(currentstring, 'tree');           delete(currentstring, ind, length('tree'));           insert('palms', currentstring, ind);       end;     end;     close(myinfile);     close(myoutfile); end.

Это явно шифр замены, поэтому имеет смысл провести частотный анализ. всего букв 808 - 145 знака и пробела = 663. из них: ь : 3; ш : 32; к : 79; п : 13; з : 16; щ : 42; а : 35; ж : 36; ц : 13; о : 33; э : 45; ы : 32; и : 16; д : 18; б : 24; л : 33; ю : 30; я : 5; г : 60; с : 1; й : 27; ч : 8; н : 6; у : 4; х : 13; м : 7; в : 17; ф : 7; р : 7; самая частая буква в языке - буква о, здесь чаще всех встречается буква к - 79 раз. на 2 месте буква а, здесь это явно буква г - 60 раз. можно с уверенностью сказать, что к = о,  г = а. кроме того, слово "швш-шк" явно означает "тут-то", а "ого" означает "как" то есть ш = т, в = у, о = к. проводим анализ дальше, и буквы отгадывать становится все проще. заменяем эти буквы, я их буду писать большими, чтобы отличать, в итоге получаем это было низкое, длинное подземелье; своды его слабо освещались висячих ламп. правда, по всей длине стен шли двери, но, к большому сожалению, все они оказались заперты. алиса довольно скоро удостоверилась в этом, дважды обойдя все подземелье и по нескольку раз подергав каждую дверь. она уныло расхаживала взад и вперед, пытаясь придумать, как ей отсюда выбраться, как вдруг наткнулась на маленький стеклянный столик, на котором лежал крохотный золотой ключик. алиса обрадовалась: она подумала, что это ключ от какой-нибудь из дверей. но увы! может быть, замки были слишком большие, а может быть, ключик был слишком маленький, только он никак не хотел открывать ни одной двери. она добросовестно проверяла одну дверь за другой, и тут-то она впервые заметила штору, спускавшуюся до самого пола, а за ней. это отрывок из "алисы в стране чудес" льюиса кэрролла.