Всё здесь неправильно 2 система состоит из 0 и 1
8 система 1 2 3 4 5 6 7
16 система 1 2 3 4 5 6 7 8 9 a b c d e f
Var i,j,n,m:integer;
a:array[1..100] of integer;
begin
Read(n);
for i:=1 to n do
for j:=1 to n do
begin
if cos(sqr(i)+n)>0 then m:=m+1;
End;
write(m);
<span>End.</span>
Это лепестковая диаграмма, без вариантов.
но букв 11.
И как ответить на это всё ?
var a,b:integer;
Begin
randomize;
a:=random(99);
writeln('Дополните ', a);
read(b);
if (a+b=100) then writeln(':-)')
else writeln(':-(');
end.