1.
var a,c:integer; m:set of 0..9; b:boolean;
begin
readln(a);
m:=[];
b:=false;
while a>0 do
begin
c:=a mod 10;
if c in m then b:=true;
m:=m+[c];
a:=a div 10;
end;
if b then writeln('Да')
else writeln('Нет');
end.
Пример:
121
Да
2.
var a,b,c:integer;
begin
readln(a);
c:=a;
b:=0;
while c>0 do
begin
b:=b*10+c mod 10;
c:=c div 10;
end;
if a=b then writeln('перевертыш')
else writeln('Нет');
end.
Пример:
121
перевертыш
Var
n,x:string;
i:integer;
begin
write('Введите число n: ');
readln(n);
for i:=length(n) downto 1 do x:=x+n[i];
writeln('Обратное число: ',x)
<span>end.
или можно так:
</span>var
n:string;
begin
write('Введите число n: ');
readln(n);
writeln('Обратное число: ',ReverseString(n) )
end.
#include <iostream>
using namespace std;
int main()
{
int a, b, c;
cin >> a >> b >> c;
if (a < 0 && b < 0 && c < 0) {
cout << "Error!" << endl;
} else {
if ((a - b) % 3 != 0 && (a - c) % 3 != 0 && (b - c) % 3 == 0) {
cout << "1" << endl;
}
if ((a - b) % 3 != 0 && (a - c) % 3 == 0 && (b - c) % 3 != 0) {
cout << "2" << endl;
}
if ((a - b) % 3 == 0 && (a - c) % 3 != 0 && (b - c) % 3 != 0) {
cout << "3" << endl;
}
}
return 0;
}
program kvadrat;
var i, n: integer;
begin
writeln ('Таблица квадратов');
writeln ('-----------------');
writeln (' Число Квадрат');
writeln ('-----------------');
i:= 1;
n:= 10;
for i:=1 to n do
begin
writeln (' ',i,' ', sqr(i));
end;
writeln ('-----------------');
end.