Запомнить первый символ входного слова, не стирая его (перейти в состояние q1, если первый символ – a, q3, если первый символ – b и q5, если первый символ – c).
Переместить автомат под последний символ и сравнить его с запомненным (в q2 для a, в q4 для b и в q6 для c). Если они равны, то больше ничего не делать.
В противном случае уничтожить всё входное слово (q7).
Program N12345678901011121314;
uses crt;
const n=8;
var
e:array[1..n] of integer;
vid,nom,i: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Елементи масиву:');
randomize;
nom:=0; //номер 5-го елементу
vid:=0; // к-ть негативних елементів
for i:=1 to n do
begin
e[i]:=random(100)-50;
write (e[i]:5);
if e[i]<0 then
vid:=vid+1;
if (e[i]<0) and (vid = 5) then
nom:=i;
end;
writeln();writeln();
if nom<>0 then
writeln('Номер 5-го негативного елементу: ',nom)
else
writeln('Такого елемента немає');
end.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var m:=ArrRandom(16,-99,99); m.Println;
var s:=m.Where((e,i)->i.IsEven and (e>0));
Writeln('Ср.геом. положительных на нечетных местах ',
Power(s.Aggregate(1.0,(p,e)->p*e),1/s.Count):0:4)
end.
<u><em>Тестовое решение</em></u>
12 58 -54 77 -68 -41 -79 -91 -18 -57 98 81 28 97 33 79
Ср.геом. положительных на нечетных местах 32.2864
1. Делаешь саму презентацию
2. Затем разделяешь ее на части
3. Придумай себе вступление. Для твоей темы будет актуально что-то вроде этого: "Существует 193 страны ( гос-ва ) во всем мире. Сегодня я расскажу о некоторых из вас."
При рассказе самой презентации рекомендую делать паузы и упоминать о традициях и\или праздниках той или иной державы
2. $А$1
Абсолютный адрес тот, который не изменятся при переносе формулы в другую ячейку
$ перед А - не меняется А
$ перед 1 - не меняется 1
Ответ: 2
