<span>#include <iostream>
void RevStr(char* S,int l)
{
char c;
if (l > 1)
{
c=S[0];
S[0]=S[l-1];
S[l-1]=c;
RevStr(S+1,l-2);
}
}
int main(int argc, char* argv[])
{
char S[12]="</span><span>Test of pen</span>";
<span> RevStr(S,11);
std::cout << S << std::endl;
return 0;
}</span>
Var a:array[1..20,1..20] of integer;i,j,n:integer;beginreadln(n);for i:=1 to n dofor j:=1 to n doread(a[i,j]);
for i:=1 to n dofor j:=1 to n doif a[i,j] mod n =0 then a[i,j]:=a[i,j] div n;
for i:=1 to n do beginfor j:=1 to n dowrite(a[i,j],' ');writeln;end;end.
1 = 1
2 = 2
3 = 3
4 = 2 + 2
5 = 2 + 3
6 = 3 + 3
7 = 7
8 = 1 + 7
9 = 2 + 1
10 = 7 + 3
<u>Ответ: 1, 2, 3, 7</u>
Ответ:
program tt;
uses wincrt;
var
chislo,a,b,c:integer;
begin
ClrScr;
writeln('Введите число:');
readln(chislo);
a:=chislo div 100;
b:=(chislo mod 100) div 10;
c:=chislo mod 10;
if (a=b) or (a=c) or(b=c) then
writeln('Есть!')
else
writeln('Нет!');
readln;
end.
Объяснение:
Program znanija;var a: integer;begin write('Введите трехзначное число: '); readln(a); if (a>99) and (a<1001) then writeln('Чило: ',a,' трехзначное') else writeln('Чило: ',a,' не трехзначное');end.