MC (сокращение от английского Memory Clear (Очистить память)) - кнопка означает, что данный сотрутся (удаляться) из ячейки памяти калькулятора.
То-есть предыдущее вычисления забудутся калькулятором. Это все равно что "очистить кэш" из смартфонов.
Я надеюсь, что Вам помог!
Var x,y: real;
var a,b,c,d:integer;
begin
readln(x,y);
if (y<1) then
write ('1')
else write ('0');
if (y<-x) then
write ('1')
else write ('0');
if sqr(x)+sqr(y)<1 then
write ('1')
else write ('0');
if sqr(x-1)+sqr(y)<1 then
write ('1')
else write ('0');
<span>end.</span>
Const
n=10;
var
i,j,k,m,buf:integer;
a:array[1..n,1..n]of integer;
begin
for i:=1 to n do
begin
writeln;
for m:=1 to n do
begin
a[i,m]:=random(20);
write(a[i,m]:4);
end;
end;
writeln;
writeln('k,j ?');
readln(k,j);
for m:=1 to n do
begin
buf:=a[k,m];
a[k,m]:=a[j,m];
a[j,m]:=buf;
end;
for i:=1 to n do
begin
writeln;
for m:=1 to n do
write(a[i,m]:4);
end;
end.
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.
Это значит 3 человека.Тоесть есть отец(он один папа)у него есть сын а у его сына есть ещё сын.Значит его дедушка.