<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Arr(3,9,1,3,5,8,5,3,6,7,6,5,4,6,1,81); a.Println;
a.IndexesOf(t->t=a.Min).Select(t->t+1).Println
end.
<u>Результат</u>
3 9 1 3 5 8 5 3 6 7 6 5 4 6 1 81
3 15
#include <conio.h>
#include <iostream>
using namespace std;
int main()
{
char s[255];
bool palindrom=true;
gets(s);
for(int i=0;i<strlen(s)/2;i++)
{
if(s[i]!=s[strlen(s)-i-1])
{
palindrom=false;
break;
}
}
if(palindrom)
cout<<endl<<"Palindrom";
else
cout<<endl<<"Ne palindrom";
getch();
return 0;
}
<span>
</span>
яблоня-ствол, корень,ветка-яблоко-семечко
адрес: яблоня, ветка,яблоко.
Readln(a);
<span>readln(b); </span>
<span>readln(c); </span>
<span>if (a=b) and (b=c) then </span>
<span>write("треуг равносторонний") </span>
<span>else </span>
<span>if (a=b) or (a=c) or (b=c) then </span>
<span>write("треугольник равнобёдренный")
end</span>
Нет в пятиричный систему счисления входит цифры от 0-4