#include <stdio.h>
#include <iostream>
#include <stdlib.h>
using namespace std;
#define kolichestvo 4
int main()
{
int chislo, i, j;
char str [5];
bool flag= false;
cin>>chislo;
itoa (chislo, str, 10);
for (i= 0; i< kolichestvo- 1; i++)
for (j= i+ 1; j< kolichestvo; j++)
if (str[i]== str[j]) {
j= kolichestvo;
i= kolichestvo- 1;
flag = true;
}
printf ("%x\n", flag);
getchar ();
getchar ();
return 0;
}
Объяснение:
1.
begin
for var i := 1 to 9 do begin
for var j := 0 to 9 do write(i*10+j, ' ');
writeln;
end;
end.
2.
var
n, s, p : integer;
begin
write('введите число n=');
readln(n);
p := 1;
while n > 0 do begin
s += n mod 10;
p *= n mod 10;
n := n div 10;
end;
writeln('сумма ', s);
writeln('произведение ', p)
end.
3.
var
a : integer;
begin
write('введите 6-и значное число: ');
readln(a);
if (a mod 10 = a div 100000) and ((a div 10) mod 10 = (a div 10000) mod 10) and ((a div 100) mod 10 = (a div 1000) mod 10) then writeln('палиндром') else writeln('нет');
end.
