Информации
компьютере/роботе
алфавит
Var s,s1:string; p:integer;
begin
writeln('Введите строку:');
readln(s);
s1:=s+' ';
while s1<>'' do
begin
p:=pos(' ',s1);
if (p>1)and(s1[p-1]='я') then writeln(copy(s1,1,p-1));
delete(s1,1,p);
end;
<span>end.</span>
В первом 4), во втором 3), в третьем 5), в четвертом 1), в пятом 6), и в шестом 2)
javascript:var массив = []; for (let сч = 0; сч < 20; сч++) массив.push((function (от, до) { return Math.floor(от + Math.random() * (до + 1 - от)); })(-15, 15)); alert(массив.reduce(function (пр, тек) { return пр + (тек % 3 == 0 && тек % 5 != 0 ? тек : 0); }, 0));
Program Numbers_Fib;
Var K, N, A, B, C: integer;
Begin
Writeln {введите номер N искомого числа Фибоначчи};
Readln (N);
A:=1; {первый элемент}
B:=2; {второй элемент}
For k:=3 to N do { цикл выполняется для получения элементов с 3-го по N-ый}
begin
C:=B+A; {новый элемент, с номером k}
A:=B; {элемент с номером k-1 становится k-2-м элементом }
B:=C; {элемент с номером k становится k-1-м элементом }
End;
Writeln {N,‘- ый элемент последовательности равен’, C};
End.