Помогите пожалуйста решить 1) дано натуральное число. ...

Question

Помогите пожалуйста решить 1) дано натуральное число. ...

Нюра

Помогите пожалуйста решить
1) дано натуральное число. Определить номер цифры 3 в нем считая от конца числа. Если такой цифры нет то ответ 0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр

3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число

Есть ответ

18.12.2022

298

Ответ

Answer 1 · 18.12.2022

1)

Program Pr1;uses crt;var stroka:string; i,k:integer;Beginclrscr;writeln('Vvedite chislo');readln(stroka);k:=0;for i:=length(stroka) downto 1 do if stroka[i]='3' then k:=i;writeln(k);end.

2)

Program Pr2;uses crt;var stroka:string; i,k,x,y:integer;Beginclrscr;readln(stroka);y:=0;for i:=length(stroka) downto (length(stroka)-1) do begin val(stroka[i],k,x); y:=y+k; end;writeln(y);end.

3)

Program Pr2;uses crt;var stroka:string; i,y,k:integer; mas:array[byte] of integer;Beginclrscr;readln(stroka);for i:=1 to length(stroka) do begin val(stroka[i],y,k); mas[i]:=y; end;k:=0;for i:=1 to length(stroka) do if mas[i]>k then k:=mas[i];writeln(k);end.

4)

Program Pr2;uses crt;var stroka,tmp:string;Beginclrscr;readln(stroka); {1-oe predlojenie}readln(tmp); {2-oe predlojenie}delete(stroka,1,length(tmp));stroka:=tmp+stroka;writeln(stroka);end.

5)

Program Pr2;uses crt;var mas:array[byte] of integer; i,n,f:integer;Beginclrscr;readln(n);mas[1]:=1;mas[2]:=1;for i:=3 to n do mas[i]:=mas[i-1]+mas[i-2];writeln(mas[n],' a'); {a}readln;for i:=1 to n do write(mas[i],' '); {á}f:=0; {â}readln;for i:=1 to n do f:=f+mas[i];if f mod 2=0 then writeln('TRUE')else writeln('FALSE');end.