Программа в файле
Program rtr1;Uses crt;Var a:array [1..100] of real; mx, max,min:real; max1,min1,i,n:integer;Begin Clrscr; Write('n='); Readln(n); Writeln('Вводите массив:'); for i:=1 to n do readln(a[i]); max:=a[1]; min:=a[1]; for i:=1 to n do begin if a[i]>=max then max:=a[i]; if a[i]<=min then begin min:=a[i]; min1:=i; end; end; i:=1; while a[i]<>max do begin i:=i+1; end; max1:=i; mx:=a[max1]; a[max1]:=a[min1]; a[min1]:=mx; for i:=1 to n do write('a[',i,']=',a[i],';'); End.
Нужно знать модель ноутбука, что-бы дать ответ. Но по идее по умолчанию на них ничего не должно стоять, в каждой программе свое. Проверьте, не залипла ли у вас кнопка "fn" например
Ответ: "о"
программирование
п о р м и о а и
иаоимроп
и о м о
омои
о о
оо
о
Function StRevers(St : String) : String;
Begin
If Length(St)>1 then StRevers:=St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1]
else StRevers:=St;
end;
Function Del2(st : String) : String;
Begin
If Length(st)>0 then Del2:=st[1]+Del2(Copy(st,3,Length(st)-2)) else Del2:='';
end;
Var
S : String;
Begin
S:='программирование';
While Length(S)>1 do S:=StRevers(Del2(S));
Writeln(S);
end.
1)3³=27
2)27³=19683
3)19683³=7625597484987
4)7625597484987³=с калькулятора=4.43426488e38
Но я думаю не обязательно считать,просто алгоритм
#include <iostream>
using namespace std;
int main()
{
int n;
cout << "Enter N: ";
cin >> n;
for (int i = 1; i <= 10; i++) {
cout << n << " * " << i << " = " << n * i << endl;
}
cout << endl;
for (int i = 1; i <= 10; i++) {
cout << n << " + " << i << " = " << n + i << endl;
}
return 0;
}
