// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
var s:=ReadlnString('Введите слово:').ToLower;
if s=ReverseString(s) then Writeln('Перевертыш')
else Writeln('Не перевертыш')
end.
<u><em>Тестовое решение:</em></u>
Введите слово: Шалаш
Перевертыш
Введите слово: револьвер
Не перевертыш
Общие свойства это одинаковые параметры у нескольких объектов, а отличительные - то что разное у объектов(не повторяющееся), индивидуальное
Var
i,n:integer;
a:array[1..4] of integer;
begin
Write('n='); Read(n);
for i:=1 to 4 do begin
a[5-i]:=n mod 10;
n:=n div 10
end;
Writeln(a[4]*1000+a[3]*100+a[2]*10+a[1]);
Writeln(a[3]*1000+a[4]*100+a[1]*10+a[2]);
Writeln(a[2]*1000+a[1]*100+a[4]*10+a[3]);
Writeln(a[1]*1000+a[3]*100+a[2]*10+a[4])
end.
Пример
n=7048
8407
4870
784
7408
#include <iostream>
#include <cstdlib>
using namespace std;
int main(){
int a[16];
int i=0,c;
for(i; i<16; i++){
a[i]=rand()%40+10;
cout<<a[i]<<' ';
}
i=0;
for(i; i<4; i++){
c=a[i];
a[i]=a[7-i];
a[7-i]=c;
}
for(i=8; i<12; i++){
c=a[i];
a[i]=a[23-i];
a[23-i]=c;
}
cout<<endl;
for (i=0; i<16; i++){
cout<<a[i]<<' ';
}
return 0;
}
Вроде правильно, проверь. Вопросы, недочеты в ЛС
Int x,a;
Cin>>x;
For(int i=1;i<31;++i){
Cin>>a;
If(a==x){
Cout <}}