(0+1)*(1*0)=1*0=0 ответ 2
Ответ:
Объяснение:
Var a,b,x,k,j : Integer;
Begin
Read (a);
Read(b);
Read(x);
While x<>0 do
Begin
If x mod 10=a then k:=k+1;
If x mod 10=b then j:=j+1;
X:=x div 10;
End;
If k=j then WriteLn('одинаковое количество ');
If k>j then WriteLn(символов а больше)
Else
WriteLn (символов b больше)
Var rast,summa:real;
k:integer;
begin
rast:=10;
summa:=10;
for k:=2 to 7 do
begin
rast:=rast+rast/10;
summa:=summa+rast;
end;
writeln(summa);
<span>end.</span>
var x,n:integer;
begin
readln(n);
readln(x);
for i=:1 to n do
x:= (x-i);
end.
Если решение задачи будет не верно, извените значит надо писать более подробно.