Program qq;
var i, n, c:real;
begin
readln(i);
c:=i;
while n<>100 do
begin
n:=n+1;
write(c, ' ');
c:=c*i;
end;
writeln();
<span>end.</span>
1340+206=1546
MCCCXL+CCVI=CDXLVI
<span>var s : string; symb : char; i : longint;
begin
readln(s);
readln(symb);
if pos(symb,s)=0 then writeln('В этом слове нет этого символа')
else begin
i:=0;
while pos(symb,s)<>0 do begin
write(pos(symb,s)+i,' ');
i:=i+1;
Delete(s,pos(symb,s),1);
end;
end;
writeln;
writeln(i);
end.</span>
На c++
#include <iostream>
#include <conio.h>
using namespace std;
int main()
{
int k;
cin >> k;
if (k >= 0)
{
k *= k;
cout << k << endl;
}
else
{
cout << k << "<0" << endl;
}
_getch();
return 0;}